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INTRODUCTION A L’OUVRAGE 


OBJET 


Cet ouvrage présente 30 routines, dont la plupart peuvent être appelées par une 
instruction RSX. 


L'objectif visé dans cet ouvrage est subdivisé en trois pôles : 


e Apprentissage progressif de l'assembleur Z80 au travers des routines assembleur 
présentées. 


e Découvertes des dessous de l'informatique : les méthodes de programmation 
couramment utilisées en informatique, et bien sûr en micro-informatique. 


e Technicité et utilité des routines dans divers domaines de la micro-informatique. 


CONCEPTION DE L'OUVRAGE 


Pour chaque chapitre traitant d'un sujet spécifique, un certain nombre de routines 
assembleur sont traitées. 

Pour chaque routine sont présentés : la fonction, la méthode de traitement, un 
organigramme de programmation, le programme en assembleur dûment documenté 
pour une meilleure compréhension, et éventuellement un ou plusieurs courts 
programmes BASIC effectuant une démonstration sur l’utilisation de la routine. 


PRÉSENTATION DES CHAPITRES 


Le lecteur peut aborder l'ouvrage par n'importe lequel des chapitres, mais si ses 
connaissances en assembleur Z80 ne sont pas très étendues, nous lui recommandons 
de commencer par le premier chapitre qui traite des instructions assembleur Z80. 


Le premier chapitre présente successivement, et dans cet ordre, les pseudo- 
instructions, les instructions, puis un tableau sur la modification des indicateurs après 
exécution de chacune des instructions assembleur. 
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Avec le chapitre 2, le lecteur découvrira le traitement interne des nombres en mémoire, 
permettant ainsi au micro-ordinateur de réaliser les diverses conversions et affichages 
de nombres en une base 2, 10, ou 16, qu'ils soient signés ou non, entiers ou réels. 


Le chapitre 3, quant à lui, est orienté vers la gestion et le traitement de texte, puisqu'il 
vous permettra d'effectuer la recherche de texte dans une liste, avec ou sans 
changement de celui-ci, puis de réaliser le tri de n'importe quel type de tableau, qu'il 
soit défini en Basic ou en assembleur. 


Pour ce qui concerne le chapitre 4, il est scindé en deux parties distinctes : 


— tracé de formes diverses et utiles, avec pour certaines la possibilité de les orienter 
dans l'espace écran; 

— réalisation de fonctions manquantes pour le CPC 464, puis présentation de 
routines de copie et de zoom de zones écran. 


Dans le chapitre 5, nous avons voulu fournir une panoplie des possibilités de 
traitement de fonctions mathématiques, et physiques, dont l'emploi et la réalisation 
sont aisées. 


MISE EN PRATIQUE DES ROUTINES 


Les routines assembleur sont présentées par l'intermédiaire d'un assembleur- 
désassembleur. 

Vous disposez donc d'une liste correspondante à une source, et qui est donc facile à 
saisir sur votre Amstrad, si vous possédez ce type de logiciel. 

Si ce n'est pas le cas, il est également très facile, avec un petit chargeur BASIC, de 
saisir le code machine correspondant. En effet, la première colonne vous indique les 
adresses ou sont implantés les codes hexa, puis la deuxième colonne vous en donne 
la liste. 

Toutefois, il vous faudra entrer séparément les messages éventuels de la routine, en 
tenant compte des adresses d'implantation. 


Exemple de chargeur de codes 


INPUT «adresse début : »; adrdeb : INPUT «adresse fin :»; adrfin 
FOR i=adrdeb TO adriin : READ code : POKE i, code : NEXT 
DATA’ sans Lans re code à saisir .................... 


Exemple de chargeur de message 


10 INPUT «adresse début :»; adrdeb 
20 INPUT «texte : »; txtS 

80 long=LEN (txt$) : j=1 

40 FOR i=adrdeb TO adrdeb+long-—1 
50 c=ASC(midS(txt$,j,1)) 

60 POKE i,c:j=j+1 

70 NEXT 

80 i=i+1 : POKE i,0 

90 GOTO 10 


INTRODUCTION À L'OUVRAGE 11 


La routine d'affichage utilisée dans les routines a besoin d'un zéro binaire en fin de 
message ; c'est la raison pour laquelle il faut mettre l'instruction 80. 


Appel des routines assembleur 


Le chapitre sur le traitement des nombres est essentiellement destiné à une utilisation 
assembleur; aussi l'appel se fera par un CALL classique ASSEMBLEUR. 

En ce qui concerne le passage des valeurs entières ou flottantes, il s'effectuera par 
l’utilisation d'instruction de chargement ; il y aura donc lieu de s'enquérir de l'adresse 
d'implantation de la valeur entière ou flottante que la routine connaît. 


Pour les autres chapitres, l'appel se fera par une instruction de type RSX, avec 
passage d'un ou plusieurs paramètres. 

RSX vient de l'anglais Resident System eXtensions, soit extension d'instructions 
BASIC résidentes en mémoire RAM (ou utilisateur). Cette possibilité permet 
d'augmenter la puissance du BASIC actuel des Amstrad CPC par ajout de nouvelles 
instructions. 


Pour le chapitre sur les routines mathématiques et physiques, il y aura des valeurs à 
récupérer en sortie, ceci se fera avec les premiers paramètres qui auront servi pour 
l'entrée. 


Relogeabilité des routines 


Les routines sont entièrement relogeables, par simple changement de l'adresse 
d'implantation (voir pseudo-instruction ORG), dans le cas ou vous utilisez un 
assembleur-désassembleur. 

Si vous ne disposez que d'un chargeur BASIC, l'adresse de chaque donnée étant 
incluse dans les codes hexa, les données seront figées à l'emplacement prévu 
actuellement ; mais rien ne vous empêche de les changer au niveau du code hexa... 
En ANNEXE 2, vous trouverez la liste des chargeurs des routines présentées dans cet 
ouvrage. 


CHAPITRE 1 


RUDIMENTS D’ASSEMBLEUR Z80 


PRÉLIMINAIRE 


Une programmation en langage machine apporte dans la majorité des cas une 
puissance d'exécution que nul autre langage ne permet. Tous les autres langages 
nécessitent une ou plusieurs traductions avant d'être directement exécutables par le 
microprocesseur. 


Le seul langage disponible immédiatement lors du branchement de votre Amstrad 
CPC est un langage Basic résident. 

Ce langage est relativement facile à apprendre — il est assez proche du langage 
humain — et s'adapte bien aux applications dites mathématiques. 

Mais ce qui est facile en informatique coûte souvent fort cher, non pas en espèces 
sonnantes et trébuchantes, mais en temps ou en place, ou les deux, ce qui est pire. 


Prenons un court programme Basic pour illustrer ces propos : 


10 FOR A=10 TO O STEP —1 
20 X=X+1 
30 NEXT 


La représentation en mémoire de ce programme est la suivante : 


17 00 OA 00 JE 20 0D 00 00 E1 EF 19 OA 20 EC 20 OE 20 E6 20 F5 OF 00 10 00 14 00 
OD 00 00 F8 EF OD 00 00 F8 F4 OF 00 06 00 1E 00 BO 00 00 00 00 00 


Cela fait un nombre d'octets égal à 49, et de plus, ces codes ne sont pas directement 
exécutables par le processeur ; en effet, chaque instruction est interprétée à chaque 
fois que le programme en demande l'exécution; ce processus est très coûteux en 
temps de traitement, et, nous allons le voir, en place mémoire. 
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19 INPUT "adress debut:";adrdeb 
2Q INPUT "texte:";txt$ 

3Q long=LEN(txt$):j=1 

4Q FOR i=adrdeb TO adrdeb+long-1 
5Q c=ASC(MIDS(txt$S,j,1)) 

6Q POKE i,c:j=j+1 


7© NEXT 
8Q i=itl:POKE i,Q 
9Q GOTO 10 


1© FOR a=1@ TO @ STEP -1 
2Q x=x+1 
3Q NEXT 


Voyons maintenant la programmation équivalente en langage assembleur Z80 : 


7000 10 ent # 7000 ; adresse exécution 
7000 20 org # 7000 ; début routine 
7000  0E00 30 ld c,0 init c à O 

7002  3E0B 40 Id a,11 ‘init a à 11 

7004 OC 50 som : inc C ; +1 dans c 

7005  3D 60 dec a ;, — 1 dans a 
7006  20FC 70 jr nz, som ‘aller à som si a <> 0 
7008 79 80 Id a,c ;c dans a 

7009  320D70 90 Id (X),a ;a dans x 

700C C9 100 ret : fin routine 

700D 110 x : defs 1 ‘init x a O0 


Ce programme assembleur fait 13 octets contre 49 en Basic, et ce, pour effectuer le 
même traitement; de plus, les codes machine sont immédiatement exécutés par le 
processeur, d'où un gain de temps considérable. 


La représentation en mémoire de ce programme se résume donc à ces quelques 
octets : 


0E 00 3E 0B OC 3D 20 FC 79 32 OD 70 C9 


Bien entendu, il existe des logiciels appelés compilateurs, et qui ont pour but de 
transformer un langage évolué en langage machine. Ce type de logiciel est très 
gourmand en place mémoire ; de plus, les programmes une fois compilés occupent 
généralement une place mémoire qui est bien plus importante qu'un programme 
équivalent écrit directement en langage machine. 


En résumé, on peut admettre qu'en général, ni les interpréteurs ni les compilateurs ne 
permettent d'accéder à une réelle optimisation en temps d'exécution et en place 
mémoire, du moins sur un micro-ordinateur….. 

Mais n'allez pas conclure que l'assembleur est la panacée des langages, car s’il offre 
un résultat satisfaisant en temps et en place, il n’en est pas de même pour l'écriture et 
la maintenance d'un tel langage. 
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Mais pas de panique, comme tout langage, il est indispensable de connaître un certain 
nombre de concepts, que nous allons tenter de découvrir ensemble dans les pages qui 
vont suivre. 


Le court programme assembleur présenté ci-dessus nous amène à deux remarques 
importantes : 


Première remarque 


Tout programme assembleur peut être directement chargé par les codes machine ; 
dans ce cas, il faut disposer d'un chargeur, et il faut surtout posséder une excellente 
connaissance de ces codes. Si je vous dis de prime abord 79, combien d'entre vous 
me diront qu'il s'agit de l'instruction assembleur LD A,C qui a pour but de charger le 
contenu du registre C dans le registre A7... 

Et pourtant, c'est le seul langage que connaît l'ordinateur! 

Toutefois, si vous disposez d'un chargeur de codes machine, ce sont bien ces codes 
qu'il faudra indiquer dans vos lignes de DATA ou dans vos instructions POKE. 
Le programme ainsi obtenu constitue le «code objet ». 


Deuxième remarque 


Si vous utilisez un assembleur-désassembleur, il vous suffira alors d'entrer des 
instructions telles que LD A.C ; après avoir tapé toutes vos instructions assembleur, il 
vous sera facile de les faire transcrire en codes machine. 

Le programme ainsi obtenu constitue le «code source » ; c'est à partir de celui-ci que 
toutes modifications éventuelles devront être réalisées. 

Pour tous ceux qui veulent véritablement faire de l'assembleur, je ne peux que leur 
conseiller de se procurer un logiciel qui offre une réelle programmation en assembleur. 


Il'existe à l'heure actuelle de bons logiciels répondant aux besoins du programmeur en 
assembleur Z80. 


Nous pouvons en citer quelques-uns : 


— DEVPAC ASSEMBLER — de chez HISOFT 
— ZEN — de chez AMSOFT 
— DAMS — de chez MICRO-APPLICATION 


Les programmes assembleur présentés dans cet ouvrage ont été développés à l'aide 
du DEVPAC ASSEMBLER de chez HISOFT. 


STRUCTURE D’UN PROGRAMME ASSEMBLEUR 


Nous allons maintenant tenter de voir ce qu'est la programmation en assembleur Z80, 
et en quoi elle diffère de la programmation en Basic. 

Prenons un exemple simple : l'affichage d'un texte ; en Basic, cela se fera simplement 
par l'ordre suivant : 


10 PRINT «TEXTE A AFFICHER » 
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Comme tout utilisateur, nous sommes satisfaits de nous, et du reste, cela est tout à fait 
légitime, puisqu'avec une simple instruction nous obtenons le résultat escompté. 


En revanche, ce qu'il faut savoir, dans une optique d'approche du langage 
assembleur, c'est que cette simple instruction est soumise à un logiciel qui s'appelle 
«INTERPRETEUR BASIC ». 

Sa fonction est d'interpréter chaque instruction Basic au moment ou ladite instruction 
doit être exécutée. 


Mais que fait donc cet interpréteur pour arriver au résultat tant attendu ? 


Pour chacun des caractères du texte, il va fournir une adresse à une routine qui 
procédera à l'affichage de ce caractère. 

L'adresse sera alors incrémentée de 1, afin de pointer sur le prochain caractère à 
afficher, puis appellera à nouveau la routine d'affichage. 

Ce processus se déroulera jusqu'à affichage complet du texte, ce qui sous-entend que 
la longueur de notre texte soit connue au départ ; en effet, après chaque affichage de 
caractère, il faudra décrémenter cette longueur jusqu'à l'obtention de la valeur 0; afin 
que le système puisse décréter que l'affichage du texte est enfin terminé. 


Vous voyez qu'en fait le système réalise un certain nombre d'actions pour arriver à ses 
fins. 


Eh bien, en assembleur, c'est vous qui programmerez toutes ces actions : 
incrémentation du pointeur de caractères, appel de la routine d'affichage d'un 
caractère, décrémentation de la longueur du texte, et réitération du processus jusqu'à 
affichage du dernier caractère du texte. 


Voyons comment ce programme assembleur va se présenter : 


(1) (2) (3) (4) (5) (6) 


7000 10 ent # 7000 ; adr exec ass 
7000 20 org # 7000 ; debut codes 
7000 8E10 30 id a,16 longueur = 16 
7002 211070 40 Id hi, texte ;init adr texte 
7005 4F 50  affcar: Id c,a ; Sauve longueur 
7006 7E 60 Id a, (hl) : car à afficher 
7007 CD5ABB 70 call # bb5a : affichage car 
700A 23 80 inc hl ; +1 dans adr car 
700B 79 90 Id a,c ; recup longueur 
700C  3D 100 dec a ; —1 dans longueur 
700D  20F6 110 jr nz, affcar °aller aff suivant 
700F C9 120 ret ; fin aff texte 
7010 54455854 130 texte : defm «TEXTE A AFFICHER » 


Peut-être n'avez-vous pas compris en détail chaque instruction utilisée dans ce 
programme, mais nous allons tâcher d'y remédier dès à présent. 


Vous remarquerez tout d'abord que le programme présenté comporte 6 colonnes, 
dont la numérotation apparaît en première ligne du programme. 


RUDIMENTS D'ASSEMBLEUR Z80 17 


Quand vous tapez les instructions assembleur, vous ne tapez en fait que les colonnes 
de 3 à 6. 

Pour que votre programme soit exécutable, il faut qu'il soit transcrit en langage 
machine (voir colonne 2). 

Pour ce faire, vous allez demander à votre assembleur d'effectuer ce travail fastidieux, 
mais Ô combien nécessaire ! 

Si votre programme ne comporte aucune erreur, comme c'est le cas ici, vous 
obtiendrez les 6 colonnes présentées ici, sans aucun message d'erreur. 


La première colonne indique l'adresse mémoire du premier code de l'instruction, une 
fois transcrite en codes hexadécimaux. 

La deuxième colonne indique les codes hexa de l'instruction en question (voir 
colonne 5). 

La troisième colonne indique un numéro séquentiel pour chacune des instructions du 
programme. 


La sixième colonne permet d'indiquer un commentaire : ceci est en effet très utile pour 
documenter vos programmes en vue d'une utilisation ultérieure, ou pour une 
compréhension plus aisée par d’autres utilisateurs. 


Si j'ai laissé pour la fin l'explication des colonnes 4 et 5, c'est que ce sont ces deux 
colonnes qui constituent le langage assembleur qui sera transcrit en langage machine 
(voir colonne 2). 


La colonne 4 indique ce qu'on nomme en jargon assembleur un LABEL ou une 
ETIQUETTE ; pour faire la comparaison avec le langage Basic, nous pouvons dire 
qu'un GOTO 100, par exemple, équivaudrait ici à un JR NIVEAU, soit : 








— en BASIC — — en ASSEMBLEUR — 
100 PRINT « SALUT ! » NIVEAU : CALL AFFICH 
200 GOTO 100 JR NIVEAU 


Passons maintenant à la colonne 5 qui est en fait le cœur de votre programme 
assembleur. 


Nous pouvons déjà appréhender un certain nombre d'instructions. Nous distinguerons 
deux grands types d'instructions : 


(a) les PSEUDO-OPERATIONS : telles que «ent», «org», etc. 
(b) les instructions assembleur : telles que «ld ca», «inc hl», etc. 


LES PSEUDO-OPÉRATIONS 


Ce sont des instructions qui ne sont pas transcrites en codes machine ; leur seul but 
est d'indiquer à l'assembleur certaines actions nécessaires pour le bon déroulement 
du programme. 


Tous les assembleurs n'utilisent pas forcément les mêmes, et il faut être très vigilant 
quant à leur emploi, surtout si vous passez d'un assembleur à un autre. 
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Nous ne présenterons ici que les PSEUDO-OPERATIONS utilisées dans l'assem- 
bleur/désassembleur DEVPAC, puisque nous avons opté pour celui-ci afin de rédiger 
les programmes assembleur présentés dans cet ouvrage. 


La pseudo-opération ENT 


Cette instruction indique à l'assembleur l'adresse d'exécution du programme en 
mémoire ; on l'appelle «point d'entrée ». 


ex. : ENT #7000 indique que le point d'entrée est en 7000 hexa. 


La pseudo-opération ORG 


ORG vient de l'anglais ORIGIN, qui signifie origine de l'implantation en mémoire. 
Cette instruction indique à l'assembleur l'adresse où sera logé le programme en 
mémoire : en effet, l'adresse d'exécution n'est pas forcément l'adresse de la première 
instruction du programme. 


ex. : ORG #6000 indique que votre programme commence à l'adresse hexa 6000 


La pseudo-opération EQU 


EQU vient de l'anglais EQUATE, qui signifie «équivalant à». Cette instruction 
équivaut à donner une valeur entière à une variable ; en mathématiques, on dirait par 
exemple X = 345, eh bien, ici, on écrira : 


X: EQU 345, ce qui permet d'attribuer la valeur 345 à la variable X. 


La pseudo-opération DEFS 


DEFS vient de l'anglais DEFINE STORAGE, qui signifie «définition d'une zone 
mémoire ». 

Cette instruction permet d'allouer une zone mémoire, de N octets, initialisée à zéro, 
suivant l'endroit où est placée cette instruction. 

Il'est vivement recommandé de placer ce type d'instruction en fin de programme, afin 
d'éviter d'éventuelles surprises; en effet, si vous voulez faire un programme 
relogeable, il est plus prudent de séparer instructions exécutables et instructions de 
définition de zones mémoire. 

L'allocation d'une zone mémoire se fait en octet (8 bits). 


ex. : ENTIER: DEFS 2 permet de définir une zone mémoire de 2 octets initialisée à O, 
et qui s'appellera ENTIER. 


La pseudo-opération DEFB 


DEFB vient de l'anglais DEFINE BYTE, qui signifie « définition d’un octet », c'est-à-dire 
traitant une donnée sur 8 bits. 

Cette instruction permet d'installer un ou plusieurs octets à partir de l'emplacement 
mémoire ou est située cette instruction. Comme pour l'instruction DEFS, il est 
Vivement recommandé de la placer en fin de programme. 

Vous pouvez installer des caractères ASCII (entre guillemets), ou tout simplement une 
valeur décimale ou hexadécimale ; le mélange de ces types de données ne pose 
aucun problème. 
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ex. : soit à installer MIMI + la valeur O (pour fin de texte). 


Nous pouvons écrire par exemple l'instruction suivante : 
TEXTE: DEFB “M”,“l",#4d,73,0 

ou encore : TEXTE: DEFB 40+37,“l",#4d,73,0 

Bien entendu, il est plus simple d'écrire l'instruction suivante : 
TEXTE: DEFB “M”,“1”,“M”,*1",0 

ou encore : TEXTE: DEFB 77,73,77,73,0 


La pseudo-opération DEFW 


DEFW vient de l'anglais DEFINE WORD, qui signifie « définition d'un mot binaire », 
c'est-à-dire traitant une donnée sur 16 bits. Cette instruction permet d'installer des 
données sur 2 octets, soit sur 16 bits ; à cette différence près, elle est similaire à 
l'instruction DEFB. 


ex. : ADR: DEFW #95FF définit une adresse sur 2 octets. 


La pseudo-opération DEFM 


Cette instruction permet d'installer une chaîne de caractères ASCII (de 1 à 255 
caractères). 

ex. : TEXTE: DEFM “MIMI" 

ou encore : TEXTE: DEFM “ABCDEFGHIJKL 12345678" 


On remarquera que l'exemple utilisé pour DEFB aurait pu s'écrire : 
TEXTE: DEFM “MIMI” 
FINTX: DEFS 1 


Il y a encore d'autres pseudo-opérations, mais leur emploi n'étant pas essentiel pour la 
suite, nous nous bornerons à celles-ci. 


LES INSTRUCTIONS ASSEMBLEUR 


Vous avez pu remarquer que certaines instructions permettent d'effectuer des 
transferts ou calculs portant sur des zones non définies en début du programme 
assembleur. 


Si nous examinons l'instruction “LD A,16”, nous voyons que nous avons affecté une 
longueur à une zone qui s'appelle “A”, et qui est sur 1 octet (8 bits). 


En effet, cette instruction aurait pu s'écrire en bon français : 
METTRE LA VALEUR 16 DANS LA VARIABLE “A” 


Par ailleurs, une instruction comme “INC HL” incrémente de 1 la zone qui s'appelle 
“HL”, et qui est sur 2 octets (16 bits). 


Mais n’allons pas plus loin, car ces zones ne sont pas des zones comme vous pouvez 
en définir en Basic ; en fait, ce sont des REGISTRES utilisés par votre ordinateur de 
façon privilégiée. 


20 RSX ET ROUTINES ASSEMBLEUR SUR AMSTRAD CPC 


Ces registres représentent des positions mémoire qui font partie de la structure interne 
de votre microprocesseur. 


Celui-ci dispose en effet d'un certain nombre de registres qui ne peuvent être utilisés 
qu'en assembleur. 

Il existe des registres sur 8 bits et des registres, sur 16 bits. Toutefois, certains 
registres sur 8 bits peuvent se regrouper entre eux pour donner ce qu'on nomme 
communément en jargon assembleur des REGISTRES DOUBLES, et qui sont alors 
sur 16 bits. 


LES REGISTRES DU Z80 


Registres sur 8 bits 


Registres : A/B/C'/D'E'H/L 


PL 


Seul le registre “a” est particulier, et se nomme ACCUMULATEUR. Ce registre est en 
effet une zone clé de la structure interne de votre microprocesseur ; c'est par celui-ci 
que passe la majorité des opérations dites ARITHMETIQUES ou LOGIQUES. 

Il offre également une rapidité d'exécution au niveau des E/S. De plus, il est 
certainement le registre le plus utilisé. 


Registres sur 16 bits 
Registres : IX /1Y 


Ces deux registres sont appelés REGISTRES D'INDEX ; ils ont pour but de permettre 
l'adressage de façon indexée, ou si vous voulez, suivant le principe d'un indice. 


Registre : SP 


SP, de l'anglais STACK POINTER, signifie « pointeur de pile ». Ce registre est utilisé 
pour fixer l'adresse d'une zone mémoire, que l'on appelle “pile” ; il s'agit en fait du 
POINTEUR DE PILE. Ce registre est toutefois peu utilisé dans les programmes, car il 
est fort rare d'avoir besoin de sauver plus de 256 octets, et de plus la gestion en serait 
assez complexe. 


Les registres doubles 


En fait il n'existe pas de vrais registres doubles, puisque ceux-ci sont obtenus à partir 
des registres sur 8 bits, à l'exclusion du registre “a”. 


Registres doubles : BC /DE/HL 


Ce sont en effet les seules combinaisons offertes par le Z80. Ces registres doubles 
permettent d'adresser des positions mémoire sur 16 bits, soit de O à #FFFF (65535). 


Toutefois, pour une utilisation optimale de ces doubles registres, il est préférable 
d'utiliser la paire de registres “HL” pour des adressages mémoire ; en effet, le temps 
d'exécution est nettement plus rapide qu'avec les deux autres paires de registres “BC” 
et “DE”. 
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En général, les paires de registres “BC” et “DE” sont utilisées comme des 
mémoires-TAMPONS, soit pour des adresses, soit pour des données sur 16 bits. 


Nous allons parler maintenant d'un registre un peu particulier, qui se nomme le 
REGISTRE D'ETAT. 

Ce registre est associé au registre “a” pour former un registre double qui s'appelle 
“af”. 

Sa fonction est des plus importantes, car c'est grâce à lui que nous pouvons connaître 
le résultat de toute opération effectuée par n'importe quelle instruction assembleur. 
Pour connaître le résultat de l'exécution d'une instruction, il faut aller voir tel ou tel bit 
de ce registre, afin d'effectuer un traitement en conséquence. 


FONCTIONS DES BITS DU REGISTRE D'ÉTAT 


BIT 0: il s'agit de l'indicateur de retenue (appelé en jargon assembleur CARRY); il 
est affecté par les instructions arithmétiques, logiques, et décalages. 


BIT 1 : il s'agit de l'indicateur de soustraction, mis à O par les instructions d’addition, 
et à 1 par les instructions de soustraction. 


BIT 2 : il s'agit de l'indicateur de dépassement (ou overflow), dans le cas d'opérations 
arithmétiques. 
Il exerce également une détection de la parité pour certaines instructions de 
rotation. 


BIT 3: ce bit n'est pas utilisé. 


BIT 4 : il s’agit de l'indicateur de demi-retenue ; il a la même fonction que le bit O, mais 
pour des opérations sur un octet. 


BIT 5: ce bit n'est pas utilisé. 


BIT 6 : il s'agit de l'indicateur de zéro; si le résultat d'une opération donne un résultat 
nul, il est mis à 1, sinon il est mis à O. 


BIT 7 : il s'agit de l'indicateur de signe ; il est mis à 1 si le bit le plus significatif d'une 
opération arithmétique ou logique est 1, sinon il est mis à 0. 


En résumé, le registre d'état (ou registre “f”) a la structure suivante : 


INDICATEUR — S 2Z H PV ON C 





BIT = 7 65 4 3 2 1 0 
de 


REPORT 
SOUSTRACTION 
DEPASSEMENT 
non utilisé 
DEMI-REPORT 
non utilisé 

ZERO 

SIGNE 





F 
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TEST DES VALEURS PRISES 
PAR LES INDICATEURS 


Nous avons vu dans les deux programmes assembleur présentés jusqu'à présent 
qu'une instruction “JR NZ, étiquette” permettait de se brancher à “étiquette” si le 
résultat de la précédente instruction était différent de 0; sinon on continuait en 
séquence si ce résultat était nul 


Nous voyons que l'abrévation employée est “NZ”, c'est-à-dire, si le résultat est non 
nul, aller à “étiquette”. 


Nous avons donc le choix entre un certain nombre d'abrévations que nous vous 
présentons ci-après : 




















abrévation valeur bit Signification 
1 0 trait. ayant entraîné un report 
(e) 0 traitement sans report 
1 6 trait. dont résultat nul 
0 6 trait. dont résultat non nul 
1 2 trait. dont parité paire 
0 2 trait. dont parité impaire 
1 7 trait. dont résultat négatif 
0 7 trait. dont résultat positif 








LES INSTRUCTIONS DU Z80 


Après ces préliminaires indispensables, passons aux instructions assembleur 
proprement dites : 

Nous allons passer en revue la majorité des instructions du Z80, et tenter de nous 
imprégner de leur mécanisme fondamental. 


LEGENDES UTILISEES : d8 = donnée 8 bits / r = registre 8 bits 
dd = donnée ou adr./rr = registre double (sur 16 bits) 
e = déplacement relatif (1 octet) pour JR 


Instructions d’addition avec retenue — ADC 


Ce type d'instruction permet d'additionner la retenue à deux éléments, ces éléments 
pouvant être un registre simple ou double, une donnée immédiate (ex. : 125), ou une 
donnée en mémoire. 
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instructions fonctions 


ADC Ar addition de r, de À, et du report, dans A. 
ADC A,d8 addition de d8 et de A dans A. 
ADC A,(HL) addition d'une donnée pointée par HL à A et du repo 


dans A. 

ADC HLrr addition de rr de HL et du report dans HL. 

ADC HL,SP addition de SP de HL et du report dans HL. 

ADC A(IX+dB8) addition du report de A et d'une donnée pointée pa 
IX+ dB. 

ADC A, (IY+d8) idem que ci-dessus mais avec |Y+d8. 








Instructions d’addition sans report — ADD 


Nous retrouvons les instructions similaires à ADC, et en plus : 


instructions fonctions 



















ADD IX;rr addition de BC ou DE avec IX dans IX 
ADD IX,SP addition de SP avec IX dans IX 
ADD lY;rr addition de BC ou DE avec IY dans lY 
ADD IY,SP addition de SP avec IY dans IY 


Instructions effectuant un ET logique — AND 


rappel : un ET logique est une fonction booléenne qui donne les résultats suivants : 
0x0=0 
O0 x 1 = 0 (commutatif) 
1 x 0 = 0 (commutatif) 
14 = 1 
ex. : AND 0 effectue un ET logique entre l'accumulateur et la donnée immédiate O0; 


ceci aura pour effet de mettre systématiquement l'accumulateur à O, ce 
qui peut être très utile. 


Les possibilités sont les suivantes : 


instructions fonctions 


AND r effectue un ET logique entre r et À dans A 
AND d8 effectue un ET logique entre d8 et À dans A 





AND (HL) ET logique entre une donnée pointée par HL #t A dans A. 

AND (IX+d8) ET logique entre une donnée pointée par IX+d8 et À 
dans A. 

AND (IY+d8) idem ci-dessus mais avec |Y+d8 
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Instructions de test d’un bit donné — BIT 


Les instructions BIT sont de la forme : BIT b, opérande “b” pouvant prendre les 
valeurs O0 à 7 (pour un octet). 


L'opérande peut être, soit un registre, soit (HL), soit (IX+d8), soit (IY+dB8). 


ex. : BITO,(HL) . permet de tester le bit O de la donnée pointée par 
l'adresse contenue dans HL. 


BIT 1,(IX+d8) permet de tester le bit 1 de la donnée pointée par le 
contenu du registre index IX + d8. 


Instructions d'appel de sous-programme — CALL 


Il est possible d'exécuter un sous-programme avec où sans condition particulière. 
L'équivalent Basic serait un GOSUB n, ou un ON x GOSUB n1,n2,n8. 


Les possibilités sont les suivantes : 


instructions fonctions 


CALL dd appel 
CALL Z,dd appel 
CALL NZ,dd appel 


s—p suivant l'adresse dd 
s—p d'adr. suiv. condition Z 
s—p d'adr. suiv. condition 
CALL C,dd appel s—p d'adr. suiv. condition 
CALL NC,dd appel s—p d'adr. suiv. condition 

S—P 

S—p 

S—P 

S—p 








CALL PO,dd appel d'adr. suiv. condition 
CALL PE,dd appel d'adr. suiv. condition 
CALL M,dd appel d'adr. suiv. condition M 
CALL P,dd appel d'adr. suiv. condition P 





Instructions de comparaison — CP 


Ce type d'instruction permet de comparer un opérande avec le registre À, en 
effectuant la soustraction (A — opérande), mais le résultat de cette soustraction n'est 
pas conservé. À demeure inchangé. 


Les possibilités sont les suivantes : 





instructions fonctions 


CPr comparaison de A et du registre r 


CP d8 comparaison de À et de la donnée d8 

CP (HL) comp. de À et de la donnée pointée par HL 
CP (IX+dB8) comp. de À et de la donnée pointée par IX+d8 
CP (IY+d8) comp. de À et de la donnée pointée par IY+d8 
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Il existe d'autres instructions de comparaison, mais qui sont bien moins utilisées : 
CPD / CPDR / CPI / CPIR. 

Ces instructions permettent d'effectuer des comparaisons sur des blocs de données, 
avec incrémentation ou décrémentation automatique des pointeurs utilisés (BC et HL). 


Instructions de décrémentation — DEC 


Ce type d'instruction permet de décrémenter de 1 un opérande spécifié. 


Les possibilités sont les suivantes : 








instructions fonctions 












DEC r décrémentation du registre r 


DEC rr décrémentation du registre double rr 
DEC IX décrémentation du registre IX 

DEC IY décrémentation du registre 1Y 

DEC SP décrémentation du pointeur de pile 


DEC (HL) 
DEC (IX+d8) 
DEC (IY+d8) 


décrémentation de la donnée pointée par HL 
décrémentation de la donnée pointée par IX+d8 
décrémentation de la donnée pointée par IY+d8 












Instructions d'échange des registres — EX 


Avant de parler des différentes possibilités d'échange entre les registres, il nous faut 
compléter nos connaissances sur l'existence des registres du Z80. 

En effet, il existe des REGISTRES AUXILIAIRES, qui sont en fait des copies des 
registres AF, BC, DE, HL, ces registres se nomment AF', BC’, DE’, et HL’. 

Ils sont généralement utilisés pour les interruptions; ils sont également utiles pour 
effectuer des sauvegardes des registres courants. 


Les possibilités sont les suivantes : 



















EX AF,AF' échange A et reg. état avec son auxiliaire 

EX DE,HL échange des reg. doubles HL et DE 

EX (SP),HL échange de HL avec le pointeur de pile 

EX (SP),IX échange de IX avec le pointeur de pile 

EX (SP),IY échange de IY avec le pointeur de pile 

EXX échange BC avec BC’, HL avec HL', DE avec DE’ 
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Instructions d’incrémentation — INC 


Ce type d'instruction permet d'incrémenter de 1 un opérande spécifié. 


Les possibilités sont les suivantes : 





INC r 

INC rr 

INC IX 

INC IY 

INC SP 

INC (HL) 
INC (IX+dB8) 
INC (IY+dB8) 























incrémentation 
incrémentation 
incrémentation 
incrémentation 
incrémentation 
incrémentation 
incrémentation 
incrémentation 


du 
du 
du 
du 
du 
de 
de 
de 


registre r 


instructions fonctions 


registre double rr 


registre IX 
registre 1Y 


pointeur de pile 
la donnée pointée par HL 


la donnée pointée par IX+d8 
la donnée pointée par IY+d8 


Instructions de saut conditionnel ou non — JP 


Il est possible de se brancher à une adresse, avec ou sans condition particulière. 


L'équivalent Basic serait un GOTO n, ou ON x GOTO n1,n2,n3. 


Les possibilités sont les suivantes : 











JP NZ,dd 
JP Z,dd 
JP NC,dd 
JP N,dd 
JP PE,dd 
JP PO,dd 
JP M,dd 
JP P,dd 














instructions 








saut 
saut 
saut 
saut 
saut 
saut 
saut 
saut 
saut 
saut 


2 9 9 97 97 9 7 7 7 7 a a 


l'adresse dd 
l'adresse dd suivant 
l'adresse dd suivant 
l'adresse dd suivant 
l'adresse dd suivant 
l'adresse dd suivant 
l'adresse dd suivant 
l'adresse dd suivant 
l'adresse dd suivant 
l'adresse suivant le contenu de HL 
l'adresse suivant le contenu de IX 
l'adresse suivant le contenu de IY 


fonctions 


la 
la 
la 
la 
la 
la 
la 
la 








condition NZ 
condition Z 
condition NC 
condition N 
condition PE 
condition PO 
condition M 
condition P 
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Instructions de saut relatif, avec ou sans condition —> JR 


L'instruction JR permet d'effectuer un saut maximum de 126 octets en arrière, ou un 
saut maximum de 129 octets en avant; le saut est dit relatif, car celui-ci est calculé à 
partir du dernier octet de l'instruction JR. 


Elle est en général plus utilisée qu'un JP pour 2 raisons : 


(a) la majorité des sauts excède rarement les valeurs citées ci-dessus (soit de —-126 à 
+129). 


(b) cette instruction n'utilise que 2 octets, alors qu'un JP en utilise 3 (à cause de 
l'adressage absolu). 


Les possibilités sont les suivantes : 





instructions fonctions 


JR e saut à l'adresse suivant la valeur e 
JR NZ,e saut suivant e, et conditionné par NZ 


JR Z,e saut suivant e, et conditionné par Z 
JR NC,e saut suivant e, et conditionné par NC 
JR Ce saut suivant e, et conditionné par C 











Instructions de chargement — LD 


Le Z80 offre un nombre assez impressionnant de possibilités de chargement. 


Afin d'avoir une idée assez précise de ce qui est proposé, nous allons présenter un 
tableau scindé en 8 groupes. 

Ces groupes ont pour objectif de montrer les différents types de chargement qui ont 
été envisagés pour le Z80, à savoir : 


Charger un registre / charger le registre A / charger un registre double / charger une 
zone mémoire / charger les registres index / charger le pointeur de pile / charger une 
zone mémoire pointée par un registre double / charger une zone mémoire pointée par 
un registre index incrémenté d'une donnée sur 8 bits. 
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Les instructions faisant appel aux registres d'interruption et de rafraîchissement ne 
seront pas présentées, car elles sont peu utilisées par le programmeur amateur. 








instructions 


| 


fonctions 














LD r;r 
LD r,d8 

LD r,(IX+d8) 
LD r,(lY+d8) 
LD r,(HL) 


LD A,(dd) 
LD A,(BC) 
LD A,(DE) 














charger registre par registre 





charger registre par donnée 8 bits 
charger registre par donnée pointée par IX+d8 
charger registre par donnée pointée par IY+d8 
charger registre par donnée pointée par HL 














charger À par donnée pointée par dd 
charger À par donnée pointée par BC 
charger À par donnée pointée par DE 



























































LD rr,(dd) charger reg. double par donnée pointée par dd 
LD rr,dd charger reg. double par donnée dd 
LD (dd),A charger zone dd par A 
LD (dd);rr charger zone dd par registre double 
LD (dd),IX charger zone dd par registre IX 
LD (dd),IY charger zone dd par registre 1Y 
2" | 
LD IX,dd charger registre IX par dd 
LD IX,(dd) charger registre IX par donnée pointée par dd 
LD IY,dd charger registre IY par dd 
LD IY,(dd) charger registre IY par donnée pointée par dd 
LD (IX+d8),d8 charger zone pointée par IX+d8 par d8 
LD (IX+d8),r charger zone pointée par IX+d8 par registre 
LD (IY+d8),d8 charger zone pointée par IY+d8 par d8 
LD (IY+d8);r charger zone pointée par |Y+d8 par registre 
Î 
LD SP,HL charger pointeur de pile par HL 
LD SP,IX charger pointeur de pile par IX 
LD SP,IY charger pointeur de pile par 1Y 
Er 
LD (DE),A charger donnée pointée par DE par A 
LD (BC),A charger donnée pointée par BC par A 
LD (HL)r charger donnée pointée par HL par registre 
LD (HL),d8 charger donnée pointée par HL par d8 
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Instructions de transfert de bloc — LDx 


Ce type d'instruction permet de transférer un ou plusieurs blocs de données d'un octet. 


Les possibilités sont les suivantes : 



































instructions fonctions 
transf. 1 octet pointé par HL dans une zone pointée pa 
DE, puis BC/DE/HL sont decr. de 1 
———— — —— 

LDDR transf. n octets suivant BC, et pointés par HL, dans une 
zone pointée par DE. BC/DE/HL sont décrémentés de 1 
jusqu'à BC=0 (fin transfert) 

LDI transf. 1 octet pointé par HL dans une zone pointée par 
DE, puis BC/DE/HL sont incr. de 1 

LDIR transf. n octets suivant BC, et pointés par HL, dans une 
zone pointée par DE. BC/DE/HL sont incrémentés de 1 
jusqu'à BC=0 (fin transfert) 

= 








Instructions effectuant un OÙ inclusif — OR 


rappel : un OÙ inclusif est une fonction booléenne qui donne les résultats suivants : 
0+0=0 
0 + 1 = 1 (commutatif) 
1+0=1 (commutatif) 
1+1=1 


ex. : OR #FF effectue un OÙ inclusif entre À et #FF ; ceci aura pour effet de mettre 
systématiquement l'accumulateur à #FF, tout en n'utilisant qu'un octet 
pour cela. 


autre exemple : OR #9C (avec À = #A7) 
le résultat obtenu est #BF 


Les possibilités sont les suivantes : 


instructions fonctions 








OR r effectue un OÙ inclus. entre r et À dans A 

OR d8 effectue un OÙ inclus. entre d8 et À dans A 

OR (HL) OU inclus. entre une donnée pointée par HL et À dans A. 

OR (IX+dB8) OÙ inclus. entre une donnée pointée par IX+d8 et A 
dans A. 











OR (IY+d8) idem ci-dessus mais avec IY+d8 
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Instructions de traitement sur la pile — PUSH / POF 


(a) l'instructions PUSH permet de charger le contenu d'un registre 16 bits en haut de 
la pile (empilement). 
Elle permet de sauvegarder le registre 16 bits traité. 


Les possibilités sont : PUSH AF/ PUSH BC / PUSH DE 
PUSH HL/ PUSH IX/PUSH IY 


(b) l'instruction POP permet de charger un registre 16 bits à partir du haut de la pile 
(dépilement). 
Elle permet de récupérer un registre 16 bits sauvegardé par un PUSH, mais pas 
forcément dans ce même registre 16 bits. 


Les possibilités sont : POP AF/POP BC / POP DE 
POP HL/ POP IX / POP IY 


exemple : —— PUSH AF PILE 


: PUSH BC 
AVANT | APRES 





: PUSH DE 


: PUSH HL 
CALL routine 
POP HL 


POP DE 


POP BC 
(voir) = POP AF 


pile APRES récup. 


(voir) 
pile AVANT routine 








Nota : “arc”, dans la pile, correspond à l'adresse de retour du CALL ; celle-ci est gérée 
par le système ; toutefois si vous devez effectuer des PUSH ou POP dans la routine 
appelée, n'oubliez pas que cette adresse est en haut de la pile. 

La routine appelée modifiant les registres AF/BC/DE/HL, il est nécessaire de procéder 
à une sauvegarde de ceux-ci pour les récupérer après exécution de la routine. 
Noter au passage l'importance de la symétrie pour la récupération des registres 
sauvés, en raison du système de gestion de la pile. 


Le principe d'empilement et de dépilement de la pile se fait suivant la méthode LIFO ; 
ce terme, tiré de l'anglais Last In First Out, signifie « dernier entré Premier sorti », d'où 
la symétrie évoquée précédemment. 


Instructions de mise à O d’un bit — RES 


Les instructions RES sont de la forme : RES b, opérande “b” pouvant prendre les 
valeurs 0 à 7 (pour un octet). 


L'opérande peut être soit un registre, soit (HL), soit (IX+d8), soit (IY+dB8). 


ex.: RES 2,(HL) permet de mettre à 0 le bit 2 de la donnée pointée par 
l'adresse contenue dans HL. 


RES 7,(IY+d8) permet de mettre à O0 le bit 7 de la donnée pointée par le 
contenu de l'index IY + d8. 
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Instructions de retour de S/P avec ou sans condition —> RET 


Nous avons vu plus haut qu'il était possible d'appeler un S/P par un CALL (équivalent 
d'un GOSUB en BASIC) ; comme vous le savez aussi, le retour d'un S/P BASIC se fait 
par un RETURN. 


Eh bien, pour un S/P assembleur, il en va de même, mais avec une instruction RET 
(comme RETurn). 


Les possibilités sont les suivantes : 















instructions fonctions 


RET retour d'un Sous-Programme 


RET Z retour d'un S/P suivant la condition Z 
RET NZ retour d'un S/P suivant la condition NZ 
RET C retour d'un S/P suivant la condition C 
RET NC retour d'un S/P suivant la condition NC 


RET PO retour d'un S/P suivant la condition PO 
RET PE retour d'un S/P suivant la condition PE 
RET M retour d'un S/P suivant la condition M 
RET P retour d'un S/P suivant la condition P 



















Instruction de rotation à gauche à travers le report — RL 


Dans ce type d'instruction, il s'agit de faire passer, pour un registre ou une zone sur 8 
bits, chacun des bits donnés dans le bit suivant ; soit le bit O dans le bit 1, le bit 1 dans 
le bit 2, etc. 


Le bit 7 quant à lui passe dans le REPORT, et le REPORT passe dans le bit O. 


Schématiquement, cela nous donne : 
ee REPORT |4—— | REGISTRE 8 bits 5 
7 0 


exemple de rotation à gauche : 


AVANT : [1] 0 1 1 0 1 0 O oO 
7 0 


CARRY REGISTRE 8 bits 


APRES : [0] he y 60 71,107 001 
7 0 


CARRY REGISTRE 8 bits 
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Les possibilités sont les suivantes : 


— SE 


instructions 














fonctions 





rotation d'un registre 
rotation d'une donnée pointée par HL 

rotation d'une donnée pointée par IX+d8 
rotation d'une donnée pointée par IY+d8 
rotation du reg. À (1 oct. de moins que RL A) 











Instruction de rotation à gauche sans le report — RLC 


Ce type d'instruction est similaire à l'instruction RL, à la différence que le bit 7 va dans 
le report et le bit O. 


Le report quant à lui ne sert qu'à réceptionner le contenu du septième bit de la donnée 
ou registre sur 8 bits. 


Schématiquement, cela nous donne : 


REPORT ge — REGISTRE 8 bits le 
7 0 


exemple de rotation à gauche : 


AVANT : 1 0 1 1 0 1 0 0 1 
7 0 





CARRY REGISTRE 8 bits 
APRÈS : 0 Lt alé lo Lo | 0 
7 0 

CARRY REGISTRE 8 bits 


Les possibilités sont les suivantes : 








Instructions Fonctions 
RLC r js rotation d'un registre 
RLC (HL) rotation d'une donnée pointée par HL 
RLC (IX+d8) rotation d'une donnée pointée par IX+d8 
RLC (IY+d8) rotation d'une donnée pointée par IY+d8 
RLCA rotation de À (1 oct. de moins que RLC A) 








L_ 
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Instruction de rotation à droite à travers le report — RR 


Dans ce type d'instruction, il s'agit de faire passer, pour un registre ou une zone sur 8 
bits, chacun des bits donnés dans le bit précédent ; soit le bit 7 dans le bit 6, le bit 6 
dans le bit 5, etc. 


Le bit O quant à lui passe dans le REPORT, et le REPORT passe dans le bit 7. 


Schématiquement, cela nous donne : 


B REGISTRE 8 bits ee REPORT # 


7 0 


exemple de rotation à droite : 


AVANT : 0 1 1 | 0 1 0 0 0 1 
7 0 


REGISTRE 8 bits CARRY 
APRES : 1 0 | 1 1 0 1 0 0 | 0 | 
7 0 
REGISTRE 8 bits CARRY 


Les possibilités sont les suivantes : 



















RR r rotation d'un registre 

RR (HL) rotation d'une donnée pointée par HL 
RR:(IXHEdB): | sessions instant 

AR UIVHd8). | assise sense nana art 

RRA rotation du reg. À (1 oct. de moins que RR A) 


Instruction de rotation à droite sans le report — RRC 


Ce type d'instruction est similaire à l'instruction RR, à la différence que le bit O va dans 
le report et le bit 7 

Le report quant à lui ne sert qu'à réceptionner le contenu du bit O de la donnée ou 
registre sur 8 bits. 
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Schématiquement, cela nous donne : 


L, REGISTRE 8 se REPORT] 


7 0 





exemple de rotation à gauche : 


AVANT : Leg Li eu LEO 4 fes lo | 4 0 





7 0 
REGISTRE 8 bits CARRY 
APRES : RRERANE si À pau L' 
7 0 
REGISTRE 8 bits CARRY 


Les possibilités sont les suivantes : 












Instructions Fonctions 








RRC r rotation d'un registre 

RRC (HL) | rotation d'une donnée pointée par HL 
RARE: (IXÆdB})" 1 5e Done ares IX+d8 
RRÇG:(NÆd8) JL, ess Mise resis danse deré Zi IY+d8 








RRCA rotation de À (1 oct. de moins que RRC A) 


Instructions restarts — RST 


Ce type d'instruction (sur un octet) permet d'effectuer un saut dans les premières 
adresses de la page 0 de votre micro équipé d'un Z80; 7 restarts sont fournis, et 
seront numérotés de 0 à 7. 


Les possibilités sont les suivantes : 














HE Instructions Fonctions 
RST 0 effectue un saut à l'adresse 0 0 
RST 8 | effectue un saut à l'adresse 8 L 
RST #10 | effectue un saut à l'adresse 16 2 
RST #18 | effectue un saut à l'adresse 24 3 
RST #20 effectue un saut à l'adresse 32 4 
RST #28 effectue un saut à l'adresse 40 5 
RST #30 effectue un saut à l'adresse 48 6 
ST #38 effectue un saut à l'adresse 56 7 
=f 
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En ce qui concerne l'Amstrad, seul le RST #30 est réservé à l'utilisateur ; il peut être 
utilisé pour l'exécution d'un S/P dont l'appel est très fréquent ; l'avantage réside dans 
le fait que vous n'avez besoin que d'un seul octet, alors qu'une instruction CALL en 
nécessite trois. 


Voyons sommairement à quoi peuvent bien servir les autres RST. 


RST Num. 






Fonctions 








— effectue un RESET (équivalent du SHIFT/CTRL/ESC) 
— effectue un saut en ROM ou RAM basse, et demande pour 
cela 2 octets à la suite du code RST. 









— effectue un saut dans une ROM d'extension, et requiert 
aussi 2 octets à la suite du code RST. 
3 — effectue un saut en RAM ou en ROM, et nécessite pour cela 
2 octets à la suite du code RST. 
4 — effectue un saut en RAM, et requiert pour cela 2 octets à la 
suite du code RST. 
5 — effectue un saut en ROM basse, et réclame pour ce faire 2 








octets à la suite du code RST. 
ce RST permet de gérer toute interruption (1 oct.) 











Instructions de soustraction — SBC 


Ce type d'instruction permet d'effectuer une soustraction, de l'accumulateur où d'un 
registre 16 bits, d'un opérande et du report. 


ex. : SBC AB effectue l'opération À = À — B — REPORT 


Il est donc important de s'assurer de la valeur du report avant de procéder à 
l'exécution d'une telle instruction. 


Les possibilités sont les suivantes : 
















instructions fonctions 









Ar soustrait de A un registre et le report 
SBC A,d8 soustrait de À d8 et le report 

SBC A,(HL) soustrait de À une donnée pointée par HL et le report 
SBC A,(IX+d8) soustrait de A une donnée pointée par IX+dB8 et le report 
SBC A,(IY+dB8) soustrait de À une donnée pointée par IY+d8 et le report 
SBC HLrr soustrait de HL le reg. double rr et le carry 

HL,SP soustrait de HL le point. de pile et le carry 























Instructions de mise à 1 d’un bit — SET 


Les instructions SET sont de la forme : SET b, opérande “b” pouvant prendre les 
valeurs 0 à 7 (pour un octet). 
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L'opérande peut être soit un registre, soit (HL), soit (IX+d8), ou encore (IY+d8).. 


ex. : SET O,(HL) permet de mettre à 1 le bit O de la donnée pointée par 
l'adresse contenue dans HL. 


SET 3,(IX+d8) permet de mettre à 1 le bit 3 de la donnée pointée par le 
contenu de l'index IX + d8. 


Instructions de décalage à gauche d’un opérande —> SLA 


Dans ce type d'instruction, il s'agit de faire passer, pour un registre ou une zone sur 8 
bits, chacun des bits donnés dans le bit suivant ; soit le bit O dans le bit 1, le bit 1 dans 
le bit 2, etc. 


Le bit 7 quant à lui passe dans le REPORT, et une valeur 0 passe dans le bit O. 


Schématiquement, cela nous donne : 


[ REPORT f—| REGISTRE 8 bits k— 0 


ré 0 
exemple de décalage à gauche : 
AVANT : 1] CHÉSNÉMNASTEMRETIE 
0 
CARRY REGISTRE 8 bits 
APRES : Lo] 1{1lol1/lo0ol0o1l1lo 
7 
CARRY REGISTRE 8 bits 


Les possibilités sont les suivantes : 


instructions fonctions 


SLA r décalage d'un registre 

SLA (HL) décalage d'une donnée pointée par HL 
SLA (IX+d8) décalage d'une donnée pointée par IX+d8 
SLA (IY+d8) décalage d'une donnée pointée par 1Y+d8 




















Instructions de décalage à droite d’un opérande — SRL 


Dans ce type d'instruction, il s'agit de faire passer, pour un registre ou une zone sur 8 
bits, chacun des bits donnés dans le bit précédent ; soit le bit 7 dans le bit 6, le bit 6 
dans le bit 5, etc. 


Le bit O quant à lui passe dans le REPORT, et une valeur 0 passe dans le bit 7. 
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Schématiquement, cela nous donne : 


0 ——+| REGISTRE 8 bits] REPORT 


7 0 
exemple de décalage à droite : 
AVANT : 111111011110 101|0 Lt] 
7 0. 
REGISTRE 8 bits CARRY 
APRES : D'ETAT NE MOUET 1106 [Lo] 
7 0 
REGISTRE 8 bits CARRY 


Les possibilités sont les suivantes : 


instructions fonctions 


SLR r 

SRL (HL) 
SRL (IX+d8) 
SRL (IY+d8) 







décalage d'un registre 

décalage d'une donnée pointée par HL 
décalage d'une donnée pointée par IX+d8 
décalage d'une donnée pointée par IY+d8 













Instructions de décalage à droite d’un opérande — SRA 


Dans ce type d'instruction, il s'agit de faire passer, pour un registre ou une zone sur 8 
bits, chacun des bits donnés dans le bit précédent ; soit le bit 7 dans le bit 6, le bit 6 
dans le bit 5, etc. 


Le bit O quant à lui passe dans le REPORT, et le bit 7 reste inchangé. 


Schématiquement, cela nous donne : 


FETES 8 bits | REPORT 
7 0 


exemple de décalage à droite : 


AVANT : 1l1l1lol1lololo Lt] 
7 0 
REGISTRE 8 bits CARRY 
APRES : rtala tale ls bol Lo | 
7 0 


REGISTRE 8 bits CARRY 
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Les possibilités sont les suivantes : 


instructions 










fonctions 








SRA r décalage d'un registre 

SRA (HL) décalage d'une donnée pointée par HL 
SRA (IX+dB8) décalage d'une donnée pointée par IX+d8 
SRA (IY+d8) décalage d'une donnée pointée par IY+d8 





Instructions de soustraction de l’accumulateur — SUB 


Ce type d'instruction permet de soustraire une opérande de A. 


Les possibilités sont les suivantes : 


instructions fonctions 


SUB r soustrait de À un registre r 
SUB d8 soustrait de À une donnée d8 


SUB (HL) soustrait de À une donnée pointée par HL 
SUB (IX+dB8) soustrait de À une donnée pointée par IX+d8 
SUB (IY+d8) soustrait de À une donnée pointée par IY+d8 





Instructions effectuant un OÙ exclusif — XOR 


Rappel : un OÙ exclusif est une fonction booléenne qui donne les résultats suivants : 
0+0=0 
O + 1 = 1 (commutatif) 
1+0=1 (commutatif) 
1+1=0 


ex. : XOR A effectue un OÙ exclusif entre A et lui-même; ceci aura pour effet de 
mettre systématiquement l'accumulateur à 0. Le XOR A et le AND 0 
ont le même effet, et n'utilisent pour ce faire qu'un seul octet. 


Les possibilités sont les suivantes : 


instructions 







fonctions 







XOR r effectue un OÙ exclus. Entre r et À dans A 
XOR d8 effectue un OÙ exclus. Entre d8 et À dans A 
XOR (HL) Ou exclus. entre une donnée pointée par HL et A dans A. 
XOR (IX+dB8) OÙ exclus. entre une donnée pointée par IX+d8 et A 





dans A 
idem ci-dessus mais avec IY+d8 






XOR (IY+d8) 
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Instructions diverses (ni interruptions, ni E/S) 


instructions fonctions 


complémentation de l'indicateur de report 
complémentation de l’accumulateur 

mise de A sous forme DCB (décimal codé bin.) à utilise 
après : ADC/ADD/INC/SBC/SUB/DEC/NEG. 





décrémente B et saut relatif tant que B <> 0 
suspend l'exécution de l'unité centrale 
négation de À, soit A = O — A 

instruction nulle 

positionne l'indicateur de report à 1 





Instructions de rotation décimale : RLD / RRD 


Pour ces 2 instructions, les transferts se font par quartet, c'est-à-dire par groupe de 4 
bits ; le quartet droit correspond aux bits O à 3, et le quartet gauche correspond aux bits 
4 à 7. 


— S représente le quartet à transférer (source). 
— D représente le quartet de réception (destination). 


(a) rotation décimale à gauche : RLD 


———— —— ——————+ 
S D 
reg. A |7 413 0} 7 4 [3 0| 
donnée pointée par HL 
D SD S 


—— +<— 


(b) rotation décimale à droite : RRD 


+ ———+ 
S D S D 

reg. A [7 4]3 0] 7 4]3 O0] donnée pointée par HL 
D S 


©" "  Î 


Instructions d'interruption et rafraîchissement 


Nous n'avons en effet pas évoqué deux autres registres qui sont : 


le registre d'interruption | 
le registre de rafraîchissement R 
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Les instructions utilisant ces deux registres demandant une très bonne connaissance 
du système de gestion des interruptions, nous ne ferons que les citer ; je vous incite à 
lire des ouvrages très spécialisés pour en savoir plus sur ce sujet. 


Dee M 


interdiction des interruptions 
autorisation des interruptions 


sélection du mode d'interruption O 
sélection du mode d'interruption 1 
sélection du mode d'interruption 2 


charger | dans A 
charger A dans | 
charger R dans A 
charger A dans R 













retour d'interruption 
retour d'interruption non masquable 


Instructions d’entrée-sortie (E/S) — IN / OUT 


Il faut tout d'abord savoir qu'un périphérique peut être ou lu ou écrit par l'intermédiaire 
d'une zone qui se nomme PORT de données. 


Le port de données est une zone de 8 bits propre à chaque EyS. 


Instructions de lecture d'un périphérique par le port de données : 


ae nr À 


— charger r à partir du port pointé par C 

— charger A à partir du port d8 

— charger zone pointée par HL par le contenu du port] 
pointé par C. B et HL sont ensuite décr. 

— même fonction que IND mais répétée jusqu'à ce quel 
B=0; permet de lire jusqu'à 255 octets ; lecture par! 
décr. du pointeur de zone : HL 

— charger zone pointée par HL par le contenu du port 
pointé par C. puis —1 dans B, +1 dans HL 

— même fonction que INI mais répétée jusqu'à ce que 

B=0; permet de lire jusqu'à 255 octets; lecture par 

incr. du pointeur de zone : HL 
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Instructions d'écriture d'un périphérique par le port de données. 


instructions fonctions 


























OUT (Cj),;r fonction inverse de IN r,(C), soit écriture 
OUT (d8),A fonction inverse de IN A,(d8), soit écriture 
OUTD fonction inverse de IND, soit écriture 
OUTI fonction inverse de INI, soit écriture 
OTDR fonction inverse de INDR, soit écriture 


INIR, soit écriture 





inverse de 





fonction 





OTIR 


MODIFICATION DES INDICATEURS DU REGISTRE D'ÉTAT 


LÉGENDES UTILISÉES 


dans INSTRUCTIONS : 

op = opérande / r = registre simple / rr = registre double 
dans INDICATEURS : 

M = modification de l'indicateur suivant le résultat obtenu 

P = modification de l'indicateur suivant cas particulier 

? = résultat indéterminé / 0 = mis à zéro / 1 = mis à un. 


INSTRUCTIONS 
ADC Aop 


| ADD A,op 
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INSTRUCTIONS 








CPD / CPDR / CPI / CPIR 


CS EEE E 

RUE 
RCI 
mess 
ersremmns [UE TTTT 


























DI / DIJNZ / El / EX/EXX / HALT / IM 














COCO EEEEEEEE 
pes manne fe 
CT EG G UE 
CC TETE 
pas 
Co SORTE 
CC ECG UE 
CI EEE OUR 
Ce CRU 
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INSTRUCTIONS S|2Z H | polx C 
“ TT 
Ci 
OTDR / OTIR | ? ? 
OUT 
OUTD / OUTI 





POP/PUSH/RES/RET/RETI/RETN 








TE 
= 














RL MIM (0) M 

RLA / RLCA / RRA / RRCA 0 

RLC / RLD / RR / RRC / RRD o! mio im 
RST É 
SBC A,op MIM M M 
— ee A Al 

SBC Hbrr MIM ? M 








SET 


on 
SRE 








SUB MIM 


HE 
RCA 


Pour les cas particuliers notés P, se reporter aux ouvrages spécialisés déjà cités 
précédemment. 














XOR MIM 


SLA / SRA / SRL mim) Lo w Lo | 





Nota : 


Ce tableau doit vous permettre, d'un seul coup d'œil, de repérer les indicateurs 
affectés par l'action de n'importe quelle instruction Z80. 


CHAPITRE 2 


TRAITEMENT DES NOMBRES 


PRÉLIMINAIRE 


Nous allons essayer de montrer, dans ce chapitre, la place non négligeable que tient le 
traitement des nombres en programmation assembleur, et bien évidemment dans tout 
autre langage. 

Il nous arrive fréquemment, en Basic, de procéder à l'affichage d'un nombre, qu'il soit 
entier ou décimal, positif ou négatif. 


De plus, l'affichage d'un nombre pourra se faire suivant une base quelconque, au gré 
de l'utilisateur ; en général, l'informaticien utilise les systèmes de numération en base 
2, 10, et 16; voilà pourquoi nous nous limiterons aux conversion et affichage d'un 
nombre dans ces 3 bases; ce qui importe avant tout, à mon sens, c'est la 
compréhension parfaite du mécanisme, parfois complexe, permettant de réaliser 
soi-même d'autres types de conversion et affichage de nombres. 


En assembleur, ce problème se fait ressentir surtout par le fait que le programmeur 
doit ériger lui-même ses propres routines de conversion et affichage, ce qui, comme 
vous allez le constater, nécessite une approche rigoureuse et parfaite du processus. 
La programmation de telles routines est souvent complexe, surtout en ce qui concerne 
le passage du binaire en une base différente d'une puissance de 2, telle la base 10 par 
exemple. 

De plus, le traitement des nombres décimaux (ou flottants), accroît les difficultés de 
transformation dans ce type de numération. 
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PREMIERS SYSTÈMES DE NUMÉRATION SIMPLE 
À TRAITER EN ASSEMBLEUR 


base 2 — nécessite le traitement des bits par groupes de 1 
base 4 — nécessite le traitement des bits par groupes de 2 
base 8 — nécessite le traitement des bits par groupes de 3 
base 16 — nécessite le traitement des bits par groupes de 4 


Programmation des routines 


Il nous a semblé intéressant de présenter des routines utilisant les vecteurs 
mathématiques mis à la disposition de l'utilisateur. Toutefois, dans l'utilisation de ces 
vecteurs traitant des nombres flottants, il est souvent plus judicieux, et en tout cas 
moins coûteux en temps, de faire de la programmation en pur assembleur. 


Aussi les exemples présentés avec utilisation de vecteurs mathématiques sont-ils plus 
d'ordre pédagogique que pratique ; de plus, l'absence de ces vecteurs permet une 
portabilité plus aisée entre Amstrad, du fait des différences d'implantation d'un 
Amstrad CPC sur l'autre. 


ll est toutefois important de noter la disparition des vecteurs mathématiques traitant 
l'entier, avec l'apparition des CPC 664 et 6128; c'est pour cette raison que nous avons 
opté pour l'utilisation des seuls vecteurs mathématiques traitant les nombres flottants. 


Dans les pages suivantes, vous trouverez un tableau présentant les vecteurs 
mathématiques des CPC 464, 664 et 6128. 


Routines traitées dans ce chapitre 


(t) conversion et affichage de nombres entiers positifs sur deux octets, en décimal, 
avec utilisation de vecteurs en RAM. 


(2) conversion et affichage de nombres entiers signés sur deux octets, en décimal, 
avec utilisation de vecteurs en RAM. 


(3) idem (1), mais sans utilisation de vecteurs mathématiques. 
(4) idem (2), mais sans utiisation de vecteurs mathématiques. 


(5) conversion et affichage de nombres flottants signés, en décimal, avec utilisation 
de vecteurs mathématiques. 


(6) récupération de la partie entière d'un flottant, en décimal, dans un buffer, sans 
utilisation de vecteurs en RAM. 


(7) idem (6), mais pour la partie décimale d'un nombre flottant. 


(8) conversion et affichage d'un nombre entier sur deux octets, en hexa, sans 
utilisation des vecteurs mathématiques. 


(9) conversion et affichage d'un nombre entier sur deux octets, en binaire, sans 
utilisation des vecteurs en RAM. 
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VECTEURS MATHÉMATIQUES DES CPC 464, CPC 664 ET 
CPC 6128 
































ADRESSES __|__| FONCTIONS REGISTRES | OBSERVATIONS 
6128 PRESENTEES UTILISES EVENTUELLES 





REGISTRES 
IX ET IY 
DETRUITS 












BD6A|BD88 |BD8E| F [COMPARE 2 NB |(HL)>(DE) A=1 
(HL)<(DE) A=255 
(HL)=(DE) A=0 


BD6D |BD8E |BD91 AE FLOT |(HL) — —(HL) 


“tu BD94 


BD73 |BD94 |BD97 | F |DEGRE OU 
RADIAN 


BD76 |BD97 IBD9A | F |RECUP PI PI — (HL) 

EN FLOT 
BD79 |BD9A |BD9D |F RACINE CARREE |RAC{(HL) — (HL) |TRAIT POSITIF 
BD7C [BB De0 lBDAO |F |PUISSANCE (HL)"(DE) — ml 






























BD7F |BDAO BDA3| F |ILOG NEPERIEN TRAIT POSITIF 


eoee Boas Boas|F Loc DEcIMAL  |LoGron) (HL) I TRAIT POSITIF 
D EN 
ssh ons 
IeDee Dar (Bo8e| r TANGEANTE | 


BD91 |BDB2|BDB5| F |ARCTANGEANTE |ARCTG(HL)— (HL) 


LOG(HL) — (HL) 































COS(HL) — (HL) 













TG(HL) — (HL) 















HL + DE — HL OVERFLOW cl 
> +32767 OÙ 


< -32768 al 


SOUSTRACTION |Hl - DE-; HL IDEM 
CI-DESSUS | 


ADDITION 





















48 RSX ET ROUTINES ASSEMBLEUR SUR AMSTRAD CPC 


Vecteurs mathématiques des CPC 464, CPC 664 et CPC 6128 (Suite) 
REMARQUES : 


flottant : 5 octets / entier : 2 octets 
F : trait. flottant / E: trait. entier 
(rr) : zone pointée par double reg. rr 
rr : double reg. contenant un nombre entier 
— : indique le sens du trait. des reg. 


ADRESSES FJE FONCTIONS REGISTRES OBSERVATIONS 


PRESENTEES UTILISES EVENTUELLES 
BD3D |BD5E |BD61 | F | COPIE UN FLOT |(DE — (HL) 
DANS UNE ZONE 
BD40 |BD61 |BD64 | F | ENTIER HL (DE) ENTIER <0 
DANS FLOT DONNE 
FLOT >0 
DB43 |BD64 |BD67 ENTIER DANS (HL) — (HL) 
FLOT 
BD46 |BD67 BD6A 
BD49 ri 
BD4C |[BD6D |BD70 FONCT BASIC FIX IDEM 
CI-DESSUS 
BD4F |BD70 |BD73 FONCT BASIC INT|(HL) — (HL) ARRONDI PAR 
DEFAUT 
TOUJOURS >0 
s Boo BDc F | ADDITION (HL)+(DE) — (HL) | RESPECTE SGN 
5B |BD7F |BD82 | F | SOUSTRACTION |(HL)—(DE) — (HL)| RESPECTE SGN 


E Le: SOUSTRACTION |(DE)-(HL) — (HL)| RESPECTE SGN 
BD82 |BD85 MULTIPLICATION |(HL)X(DE) — (HL) | RESPECTE SGN 


BD85 |BD88 | F | DIVISION (HD) : (DE) — (HL) | RESPECTE SGN 


FLOT DANS ARRONDI AU 
ENTIER PLUS PROCHE 
TOUJOURS >0 


FLOT DANS (HL) — (HL) IDEM 
ENTIER CI-DESSUS 





(ee) 

e. 

o 
RE 


œ 
O 





œ 
®. 
1 
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Vecteurs mathématiques des CPC 464 CPC 664 et CPC 6128 (suite) 

























ADRESSES pe | FONCTIONS REGISTRES | OBSERVATIONS 
464 Re PRESENTEES UTILISES EVENTUELLES 
BDB2 SOUSTRACTION |DE - HL— DE | OVERFLOW SI | 

> +32767 OÙ !: 
< —32768 
BDB5 IDEM 
CI-DESSUS 
DBB8 E [DIVISION HL : DE — HL IDEM 
CI-DESSUS 
so88| | |E |MonuLo HL MOD DE—HL 
BDC4 E [COMPARE 2 NB |HL>DE A=1 





HL<DE A=255 


BDC7 E INEGATION 65536-—HL — HL ni 


BDCA E ISIGNE D'UN ENT HL>0 A=1 L 
Autres routines existantes 


HL<O A=255 


HL=0 A=0 
|BD9A BDBB BDBE | F |CLASSE 






































ALEATOIRE 


“| [pm En 







BD9D 











BD55 






BD76 BD79 |F INB x 10°A 


BD43 |BD64 |BD67 17 ENTIER EN FLOT 
BD94 |BDB5 |BDB8 





(HL)— (HL) 
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ROUTINES DE TRAITEMENT 
DES NOMBRES ENTIERS 16 BITS 


Rappels 


L'Amstrad CPC permet de représenter des nombres entiers sur un ou deux octets, soit 
sur 8 ou 16 bits. 

Ces valeurs numériques peuvent être signées ou non, c'est-à-dire positives ou 
négatives. 

Les valeurs numériques entières non signées sur un octet peuvent prendre les valeurs 
de O à 255. 

Les valeurs numériques entières signées peuvent prendre quant à elles les valeurs de 
— 128 à + 127. 

Dans le cas d'une valeur signée sur un octet, le bit 7 indique le signe de l'entier; si 
celui-ci est à zéro l'entier est positif, sinon la valeur 1 du bit 7 indique que nous avons 
affaire à un entier négatif. 


En ce qui concerne les valeurs numériques non signées sur deux octets, les valeurs 
peuvent aller de O0 à 65535. 

Pour les valeurs numériques signées sur deux octets, nous pouvons obtenir des 
valeurs entre — 32768 et + 32767. 

Dans le cas de valeur numérique signée sur deux octets, le bit de signe se situe dans 
le bit 7 de l'octet fort (voir ci-après). 


Représentation d’un entier 16 bits en mémoire 


premier octet deuxième octet 
BITS > 7 6 5 4 3 2 1 O 7 6 5 4 3 2 1 0O 
(a) (b) T (a) (b) 
S 
OCTET FAIBLE OCTET FORT 


Les 4 premiers bits d'un octet constituent le QUARTET GAUCHE : (a) 
Les 4 derniers bits d'un octet constituent le QUARTET DROIT : (b) 


“S” représente le SIGNE de l'entier 16 bits (0 ou 1). 


Les entiers négatifs 


Ceux qui ne sont pas familiarisés avec le système binaire me diront, à juste titre, qu'il 
ne paraît pas aisé de déterminer la valeur absolue d'un nombre entier négatif sur 8 ou 
16 bits. 
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Le principe en est très simple, et s'appelle le “complément à 2”. Mais avant de 
déterminer la valeur absolue d'un entier de valeur négative, il nous faut d'abord 
connaître la représentation d'un entier négatif en mémoire. 


Essayer tout d'abord de faire PRINT HEXS(-— 1), et vous obtiendrez #FFFF comme 
résultat, soit 1111111111111111 en binaire. 

Si vous faites cette fois un PRINT HEXS (—-32768), vous obtiendrez alors #8000 
comme résultat, soit 1000000000000000 en binaire. 

Ces deux valeurs représentent les valeurs limites pouvant être obtenues pour un entier 
négatif sur 16 bits. 


Vous remarquerez au passage que le premier bit est à 1 ; c'est en effet ce fameux bit 
de signe qui nous indique que l'entier est de valeur négative. 

On remarquera également que l'affichage d'un entier, en hexa ou en binaire, place 
l'octet fort avant l'octet faible ; c'est pour cette raison que le bit de signe est le premier 
des 16 bits. 


Cette représentation des nombres entiers est faite en complément à deux, ce qui 
nécessite l'application de ce principe pour passer d'un entier négatif à sa valeur 
absolue. 


Voyons comment à partir de la valeur binaire nous pouvons obtenir la valeur décimale 
d'un entier négatif, reprenons pour cela la valeur binaire du nombre —1 : 


binaire : 1 L 1 1 1 
poids — 15 14 13 12 11 


D 2 1 ot À À À 1 4-1. 1 
10 9 8 7 6 5 4 3 2 1 O 


Le premier bit est à 1, donc l'entier est négatif; nous devons alors effectuer la 
multiplication de —1 par 2 puissance 15. Tous les autres bits seront multipliés par 2 
puissance “poids”. 


Nous obtenons alors : — 32768 + 32767 = —1 


Cette méthode est toutefois lourde à utiliser par un micro, c'est pourquoi les micros 
utilisent le complément à 2 qui est beaucoup plus simple à traiter par la logique binaire 
des ordinateurs. 

Voyons maintenant comment s'effectue le complément à deux : 


première étape : transformation des bits O en 1 


transformation des bits 1 en O 


deuxième étape : ajouter 1 à la valeur binaire 
obtenue après transformation 


Appliquons ce principe sur notre exemple de départ, soit —1 : 


valeur binaire de l'entier négatif — 1111111111111111 
valeur binaire après transformation — 0000000000000000 
valeur binaire après ajout de 1 — 0000000000000001 
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Appliquons ce principe sur un autre exemple, soit sur —32767 : 


valeur binaire de l'entier négatif  — 1000000000000001 
valeur binaire après transformation — 0111111111111110 
valeur binaire après ajout de 1 — 0111111111111111 


N'oubliez pas que la plus grande valeur positive pouvant être représentée sur 16 bits 
est +32767. 


Tableau de quelques valeurs entières négatives en complément à 2: 













11110100 













11101000 






















11011100 





11010000 














11111111 | -1 11110011 11100111 11011011 | —-37 
11111110 | —-2 11110010 11100110 11011010 | —-38 
11111101 | —-3 11110001 11100101 11011001 | —-39 
11111100 | —-4 11110000 11100100 11011000 | — 40 
11111011 | —-5 11101111 11100011 11010111 |—-41. 
11111010 | -6 11101110 11100010 11010110 
11111001 | —-7 11101101 11100001 11010101 
11111000 | -8 11101100 11100000 11010100 
11110111 |—-9 11101011 11011111 11010011 
11110110 11101010 11011110 11010010 
11110101 11101001 11011101 11010001 











Affichage de nombres entiers 16 bits, en binaire 


C'est l'affichage le plus simple car il ne nécessite pas de conversion, puisque toute 
information est représentée en binaire dans un ordinateur. 


Cependant, en raison de l'organisation interne de représentation d'une valeur 16 bits, il 
faudra procéder en 2 étapes successives, et similaires : 


Traitement de l'octet faible, puis de l'octet fort de l'entier. 


Pour chaque octet traité, nous devons récupérer successivement chaque bit, du bit O 
au bit 7. 

Ceci se fera simplement par des décalages à droite dans le carry. Après chaque 
décalage à droite, il suffira de tester le bit de report pour savoir s’il est à O ou à 1 ; puis, 
Suivant le cas, nous remplirons un buffer, en partant de la droite, avec une valeur de 0 
ou 1 (#30 ou #31). 


Pour afficher une zone de caractères ASCII, nous disposons d'une routine en ROM, 
d'utilisation aisée (voir tome 14 des édit. M-A). 
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Rappel sur l’utilisation de cette routine : 


zone de caractères ASCII 


indique la fin de la zone 





adresse du premier caractère ASCII de la zone 


(1) se connecter en ROM HAUTE : CALL #B900 
(2) fournir l'adresse du premier caractère dans le registre HL 
(3) exécution de la routine d'affichage : 


CALL #C337 pour le CPC 464 
CALL #C380 pour le CPC 664 
CALL #C37D pour le CPC 6128 


Cette routine d'affichage sera utilisée tout au long de ce livre. 
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Routine d’affichage d’un nombre entier 16 bits en binaire 


Légende : 

O0 — chiffre zéro 

® — lettre (pour “oui”) 
N — lettre (pour “non”) 


\ k L Entier octet fort dans B 
# — caractère (pour “Hexa”) 16 Bits == À | 


dans BC 


octet faible dans C 


INIT INDEX 
SUR FIN 
DE CHAINE 


INIT 
COMPTEUR 
OCTETS 


INIT [ traitement 

__ _ _| octet faible 

FORSEPR au premier 
passage 





— 1 DANS 
INDEX 


BITO 
DANS 
REPORT 









REPORT 
= 0 
1 


#31 DANS 


CHAINE 








© 


Pour traitement AFFICHAGE 
B DANS C E- Le fort CHAINE 
FIN 
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Hisoft GENA3.1 Assembler. 


Pass 1 errors: 00 


7000 
7000 
B900 
C37D 


7000 


7003 


7007 


700B 


7000 


700F 
7010 


7012 
7014 


7016 
701A 


7OIC 


7020 
7021 


7023 


7025 
7026 
7028 


702A 
702B 
702D 
7030 
7033 


7034 
7036 
7046 


CDO0B9 


ED4B3470 


DD214670 


1E01 


1607 


79 
DD2B 


CB3F 
3806 


DD360030 
1804 


DD360031 


15 
CB7A 


28EB 


10 
CB7B 
2003 


48 
18E0 
213670 
CD7DC3 
C9 


3BF9 


10 

20 

30 

40 

50 

60 

70 

80 

90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 


420 ; 


430 
440 
450 
460 


3=* ROUTINE 
ent 
org 
romhau: equ 
affich: equ 


D'AFFICH BINAIRE D'ENTIER 16 BITS *- 
##7000 
#F7000 
##D900 
#c37d 


call romhau 


;--* ENTIER 
ld 


A TRAITER DANS BC *-- 
bc,(entier) 


;--* INIT PTR CHAINE SUR FIN TEXTE *-- 


ld 


ix,fintxt 


5--* INIT COMPTEUR OCTETS *-- 


ld 


e,l 


:=-* INIT COMPTEUR BITS +-- 


ca: ld 


d,7 


;5--* TRAIT OCTET FAIBLE *-- 


ld 
decal: dec 
5--* ACQUIS 

srl 

jr 


a,C 

ix 

BIT O DANS REPORT *-- 
a 

c,bun 


;--* TRAIT BIT O *-- 


ld 
jr 


(ix+0),#30 
suiv 


;--* TRAIT BIT 1 *-- 


bun: ld 


(ix+0),#31 


;--* TEST SI FIN OCTET #-- 


Suiv: dec 
bit 

;--* SI NON 
jr 


d 

7,d 

TRAIT BIT SUIVANT *-- 
z,decal 


:--* TEST SI FIN ENTIER +*-- 


dec 
bit 
jr 
;=-* SI NON 
ld 
jr 
fin: 1d 


e 

7,e 

nz,fin 

TRAIT OCTET FORT *-- 
c,D 

ca 

hl,chaine 


call affich 


ret 


, 


;--* ZONES DE DONNEES UTILISEES *-- 
entier: defw #f93b 

chaine: defs 16 

fintxt: defs 1 
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Pass 2 errors: 00 


affich C37D bun 701C ca 7000 
chaine 7036 decal 7010 entier 7034 
fin 7020 fintxt 7046 romhau B900 
suiv 7020 


Table used: 130 from 900 
Executes: 28672 


Affichage de nombres entiers 16 bits, en hexadécimal 


Cet affichage nécessite une conversion, puisque nous devons transformer chaque 
quartet (4 bits) en une valeur hexa (0 à F). 


Comme pour l'affichage en binaire, nous traiterons l'octet faible en premier, puis l'octet 
fort. 

Pour chaque octet, nous traiterons successivement le quartet de poids faible (quartet 
droit), puis le quartet de poids fort (quartet gauche). 


Pour traiter le quartet droit, nous mettrons à zéro le quartet gauche, puis nous 
examinerons la valeur de l'octet ainsi obtenu. 


En ce qui concerne le traitement du quartet gauche, il faudra procéder en deux 
étapes : 


(a) mise du quartet gauche dans le quartet droit ; 
(b) mise à zéro du quartet droit. 


Pour chaque octet ainsi obtenu, nous devrons examiner sa valeur. 


Deux cas vont se présenter : 


(a) l'octet indique que le quartet traité a une valeur comprise entre 0 et 9; 
dans ce cas, nous devrons ajouter #30 pour obtenir le chiffre ASCII 
voulu. 

(b) l'octet indique que le quartet traité a une valeur comprise entre 10 et 15; 
dans ce cas, nous devrons ajouter #37 pour obtenir le caractère ASCII 
voulu, soit À à F. 


De même que dans l'affichage en binaire, nous rangerons successivement chaque 
caractère ASCII ainsi obtenu dans un buffer, en partant de la droite de celui-ci. 


Pour le traitement d'un entier 16 bits, nous obtiendrons quatre caractères ASCII dans 
‘ le buffer. 


Ci-après, vous trouverez un organigramme de programmation, puis la routine 
correspondante en assembleur Z80. 
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Routine de conversion et d'affichage d’un nombre entier 16 bits en Hexa 


Légende : 
0 — chiffre zéro 


D — lettre (pour «oui ») 
N — lettre (pour «non») 
# — caractère (pour « Hexa ») 


Entier 
16 Bits 
dans BC 

















_ octet fort dans B 
octet faible dans C 


INIT INDEX 
SUR FIN 
DE CHAINE 















traitement 
octet faible 
C DANS A ———|au premier 
passage 
O DANS 
QUARTET _—E pour 
traitement 


GAUCH 
5 quartet droit 


(AaF) 


— 1 DANS 
INDEX 
C DANS A 





QUARTET 
GAUCHE DANS 
QUARTET 
DROIT 


PUIS O0 DANS 
' QUARTET GAUCHE 
(Pour trait. quartet gauche) 


Ô (AaF) 


EE 













FIN 
TRAITEMENT 
ENTIER ? 














— 1 DANS 
INDEX 
B DANS C 







AFFICHAGE 


CHAINE 


_ - -4 Pour traitement 
octet fort 
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Hisoft GENA3.1 Assembler. 


Pass 1 errors: O0 


7000 
7000 
B900 
C37D 
7000 
7003 


7007 
700B 


700D 


700€ 
7010 


7012 
7014 
7016 
7017 
7019 
701B 
JOIE 
701F 
7021 
7023 
7025 
7027 
7029 
702B 
7020 
702E 
7030 


7032 


CD00B9 


ED4B4470 


DD214A70 
1EO1 


79 


E6OF 
FEOA 


3802 
CEO7 
A7 
CE30 
DD2B 
DD7700 
79 
CB3F 
CB3F 
CB3F 
CB3F 
FEOA 
3802 
CEO7 
A7 
CE30 
DD2B 


DD7700 


10 
20 
30 
40 
50 


60 ; 


70 

80 

90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
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:=* ROUTINE D'AFFICHAGE HEXA D'UN ENTIER 16 BITS *= 


ent  #7000 
org #7000 


romhau: equ #b900 
affich: equ #c37d 


L 


+ 
L 


call romhau 
RECUP ENTIER A TRAITER *-- 
id bc,(entier) 
INIT PTR CHAINE SUR FIN CHAINE *-- 
ld ix,fintxt 
ld _e,l 
TRAITEMENT OCTET FAIBLE *-- 
ld a,c 
TRAITEMENT QUARTET FAIBLE *-- 
and #Of 
cp 10 
ALLER A ZANI POUR TRAIT O0 A 9 *-- 
jr  c,zanl 
TRAIT CHIFFRE 'A' A 'F' x 
adc aà,7 
and a 
adc a,#30 
-1 DANS POINTEUR CHAINE *-- 
dec ix 
CHIFFRE ASCII DANS CHAINE *-- 
ld (ix+0),a 
TRAITEMENT QUARTET FORT *-- 
ld a,c 
QUART FORT DANS QUART FAIBLE *-- 
srl a 
srl a 
srl a 
srl a 
Cp 10 
ALLER A ZAN2 POUR TRAIT O À 9 *-- 
jr c,zan2 
TRAIT CHIFFRE 'A' A 'F' #__ 
adc aà,7 
and a 
adc a,#30 
-1 DANS POINTEUR CHAINE *-- 
dec ix 
CHIFFRE ASCII DANS CHAINE *-- 
ld (ix+0),a 
TEST SI FIN TRAIT OCTETS *-- 
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7035 
7036 
7038 


703A 
703B 


703D 
7040 
7043 


7044 
7046 
704A 


Pass 


affich C37D ca 
entier 7044 fin 


10 
CB7B 
2003 


48 
1800 


214670 


CD7DC3 
C9 


E3FO 


470 
480 
490 
500 
510 
520 
530 
540 
550 
560 


570 ; 


580 
590 
600 
610 


2 errors: O0 


romhau B900 


Table used: 


Affichage de nombres entiers 16 bits, signés ou non, en décimal 


dec e 
bit 7,e 
jr  nz,fin 
;--* ALLER TRAITER OCTET FORT #-- 
ld c,b 
jr ca 
;--* AFFICHAGE HEXA DE L'ENTIER *-- 
fin: 1d hl,chaine 
call affich 
ret 
, 
;--* ZONES DE DONNEES UTILISEES *-- 
entier: defw #f0e3 
chaine: defs 4 
fintxt: defs 1 


7000 chaine 7046 
7030 fintxt 704A 
7016 zan2 7020 


119 from 900 
Executes: 28672 
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Il existe plusieurs méthodes de conversion pour obtenir une chaîne de chiffres 
décimaux à partir d'un nombre binaire. 


Nous n'en retiendrons que 2 qui sont: 


— méthode de la division par 10, 
— méthode de comptage des dizaines. 


MÉTHODE DE LA DIVISION PAR 10 


Cette méthode consiste à isoler chaque dizaine, en effectuant des divisions 
successives par 10; pour un nombre allant jusqu'aux dizaines de milliers, nous 
obtiendrons successivement : 
— les unités, 
— les dizaines, 

— les centaines, 


— les milliers, 


— les dizaines de mille. 
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Pour chaque chiffre ainsi obtenu, il suffira de les ranger dans un buffer, en partant de la 
droite de celui-ci. 


Prenons un exemple : soit le nombre entier non signé 12345. 


Après divisions successives par 10, nous obtiendrons, dans l'ordre d'exécution, les 
chiffres : 5/4/3/2/1. 


Plutôt qu'un long discours, nous allons disséquer le processus à partir de l'exemple 
ci-dessus. 
Pour obtenir chaque chiffre, nous exécuterons 4 étapes : 

(1) division d'un entier par 10 (voir étapes), 

(2) récup. partie entière du résultat précédent, 

(3) multiplication résultat précédent par 10, 

(4) soustract. entier par résultat précédent. 


Obtention des unités : (entier au départ = 12345) 


première étape — 12345 / 10 = 1234.5 

deuxième étape — int (1234.5) 1234 (à conserver) 
troisième étape — 1234 X 10 = 12340 

quatrième étape — 12345 — 12340 = 5 (unité) 


Obtention des dizaines : (nouvel entier = 1234) 


première étape — 1234 / 10 = 123.4 

deuxième étape — int (123.4) = 123 (à conserver) 
troisième étape — 123 X 10 = 1230 

quatrième étape — 1234 — 1230 = 4 (dizaine) 


Obtention des centaines : (nouvel entier = 123) 


première étape — 123 / 10 = 12.3 

deuxième étape — int (12.8) = 12 (à conserver) 
troisième étape — 12 x 10 = 120 

quatrième étape — 123 — 120 = 3 (centaine) 


Obtention des milliers : (nouvel entier = 12) 


première étape — 12 / 10 = 1.2 

deuxième étape — int (1.2) = 1 (à conserver) 
troisième étape — 1 X 10 = 10 

quatrième étape —> 12 — 10 = 2 (millier) 


Obtention des dizaines de mille : (nouvel entier = 1) 


première étape — 1 / 10 = 0.1 

deuxième étape — int (0.1) = O (à conserver) 
troisième étape — O0 x 10 = O 

quatrième étape —> 1 — O = 1 (dizaine de mille). 
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Nous pouvons remarquer que le résultat de la deuxième étape est systématiquement 
conservé; cet entier est reporté en début du traitement de l'obtention du chiffre 
suivant. 


Toutefois une question se pose : comment allons nous savoir que le traitement est 
fini ? 

La réponse en est fort simple ; en effet, après chaque passage, nous allons tester si le 
résultat de la deuxième étape est égal à 0, auquel cas nous venons d'obtenir le dernier 
chiffre de l'entier. 


Pour effectuer ce processus, nous utiliserons les vecteurs en RAM. 


En ce qui concerne le traitement d'un entier signé, il suffira de détermMer au départ le 
signe de l'entier 16 bits, en testant le bit 7 de l'octet fort de l'entier ; le signe ainsi 
déterminé sera mis en début du buffer. 


Deux routines assembleur sont présentées ; la première permet de ne traiter que les 
entiers 16 bits non signés ; la deuxième permet de traiter les entiers 16 bits signés. 


Les routines présentées tournent sur CPC 6128; pour les faire tourner sur CPC 464, il 
vous suffit d'effectuer, outre les divers changements de vecteurs mathématiques, une 
petite modification. Celle-ci est due à une modification du système d'exploitation, en ce 
qui concerne le traitement du flottant, entre le CPC 464 et les CPC 664 / 6128. 
En effet, une valeur flottante à O sur les CPC 664 et CPC 6128 donne un exposant nul, 
alors que pour le CPC 464 cet exposant est bien à #80; il convient donc de corriger 
celui-ci pour les CPC 664 et 6128, en y mettant la valeur #80. 


Adaptation à faire pour CPC 464 (outre les vecteurs RAM) 

(a) pour la routine de traitement des entiers non signés : 

Supprimer les instructions 890 à 930, ainsi que les instructions 1300 à 1320. 
(b) pour la routine de traitement des entiers signés : 

Supprimer les instructions 1040 à 1080, ainsi que les instructions 1570 à 1590. 


Cette méthode utilise 237 octets d'assembleur, et 30 octets de données pour le 
traitement de l'entier non signé. 

En ce qui concerne le traitement de l’entier signé, la routine utilise 271 octets pour les 
instructions assembleur, et 32 pour les données. 


Ci-après, vous trouverez les 2 routines assembleur, accompagnées de leurs 
organigrammes de programmation. 
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Routine de conversion et affichage d’un nombre entier 
16 bits non signé, en décimal 


0 — chiffre zéro 
© — lettre (pour « OUI») 
N — lettre (pour « NON ») 






















ACQUISITION 
ENTIER 


Diviser entier 
par 10 et 
récupérer 


=. {8 = INT (ENTIER/10) 
partie entière 


SAUVEGARDER 
NOUVEL ENTIER 


MULTIPLIER 
ENTIER 
OBTENU 
PAR 10 


R x 10 


ll 
| 
| 
l 
1 
TD 
n 





SOUSTRAIRE 
ENTIER ORIGINAL 
PAR RESULTAT 
PRECEDENT 


ENTIER - R 


l 
[ 
l 
ce 
D 


OBTENTION SUCCESSIVE 


METTRE CHIFFRE DU CHIFFRE DES UNITES 


OBTENU EN - - | AU CHIFFRE DES DIZAINES 
PR DE MILLIER, RANGE DANS 


BUFFER A PARTIR DE LA DROITE 





NOUVEL 
ENTIER = 0 
7? 






ENTIER ORIGINAL AFFICHAGE 
- BUFFER 
NOUVEL ENTIER 
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Hisoft GENA3.1 Assembler. 


Pass 1 errors: 00 


7000 
7000 


B900 


BD64 


BD73 


BD88 
BD85 
BD82 
BD7C 


BD6A 


C37D 
7000 


7003 
7005 
7009 
7000 
700F 
7010 


7012 
7015 


7019 
701B 


JOIE 
7020 
7024 
7028 
702A 
702B 


702D 
7030 
7033 


CDO0B9 


3E05 
DD21EF 70 
DD360020 
DD23 

3D 

20F7 


01F470 
ED430A71 


3E00 
32F470 


3EOA 
DD21FA70 
DD360000 
DD23 

30 

20F7 


2AED70 
11FA70 
CD64BD 


10 

20 

30 

40 

50 

60 

70 

80 

90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 


;=* ROUT AFF VALEURS NUM POSITIVES ENTIERES *- 


5=* SUR 16 BITS / POUR CPC 6128 *= 
ent #7000 
org #7000 
;--* CONNECTION EN ROM HAUTE *-- 
romhau: equ #b900 
;--* TRANS. ENTIER EN FLOTTANT *-- 
entflo: equ fbdé64 


;--* RECUP PARTIE ENTIERE D'UN FLOTTANT #__ 


intflo: equ #bd73 

;--* OPERATIONS EN FLOTTANT *-- 
divise: equ fbd88 

multip: equ #bd85 

soustr: equ #bd82 

additi: equ #bd7c 

;3--* TRANS. FLOTTANT EN ENTIER *-- 
floent: equ fbdéa 


;--* ROUTINE D'AFFICHAGE D'UN TEXTE ASCII *-- 


affich: equ #c37d 
call romhau 


;--* INITIALISATION BUFFER A BLANC *-- 


ld a,5 

ld ix,buffer 
blbuf: 1d (ix+0),#20 

inc ix 

dec a 

jr  nz,blbuf 


5--* INITIALISATION POINTEUR BUFFER *-- 


1d bc,finbuf 
id (pb),bc 


5--* INIT, FIN BUFFER A ZERO POUR ROUTINE AFF, *_ 


ld a,0 
ld (finbuf),a 


5--* INIT,. DES ZONES ACCUM] ET ACCUM2 A ZERO *x__ 


chiffr: 1d a,10 
id  ix,accuml 
mazacc: 1d  (ix+0),0 
inc ix 
dec a 
jr nz,mazacc 
;--* RECUP. ENTIER EN FLOTTANT #-- 
id hl,(entier) 
ld de,accuml 
call entflo 
5--* SAUVE FLOTTANT EN STO *-- 


, 


7036 
7039 
703C 
703F 


7041 
7044 
7047 


704A 
704D 
7050 


7053 
7056 


7059 
7050 


7061 
7064 
7067 


706A 
7060 
7070 
7073 


7075 


7077 
707A 
707D 


7080 
7083 
7086 
7089 


708B 
708€ 
7091 
7094 


7096 
709A 
709D 
709F 


21FA70 
11F570 
010500 
EDBO 


2A0671 
11FF70 
CD64BD 


21FA70 
11FF70 
CD88BD 


21FA70 
CD73BD 


ED4BF A70 
ED430871 


2A0871 
11FA70 
CD64BD 


2A0671 
11FF70 
CD64BD 
1802 


18A7 


11FF70 
21FA70 
CD85BD 


21FA70 
11FF 70 
010500 
EDBO 


21F570 
11FA70 
010500 
EDBO 


DD21FF 70 
DD7E04 
FEO0 
CCE870 


460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
B9Û 
900 
910 
220 
930 
940 
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ld hl,accuml 


ld de,sto 
ld bc,s5 
ldir 


;--* 10 DANS ACCUM2 *-- 


1d hl,(dix) 
ld de,accum2 
call entflo 


;--* ACCUMI = ACCUMI / 10 *-- 


ld hl,accuml 
ld de,accum2 
call divise 


;--* RECUP PARTIE ENTIERE DE ACCUMI *-- 


id hl,accuml 
call intflo 


;--* SAUVE PARTIE ENTIERE DANS STOENT *-- 


id bc,(accuml) 
1d (stoent),bc 


;--* TRANS. ENTIER STOENT EN FLOT. DANS ACCUMI *-- 


ld hl,(stoent) 
ld de,accuml 
call entflo 


;--* 10 DANS ACCUM2 *-- 


1id hl,(dix) 
ld de,accum2 
call entflo 

jr suite 


;--* PONT POUR REMONTEE A CHIFFR (RELOGEABLE) *-- 
ch: jr  chiffr 

5--* ACCUMI = ACCUMI * 10 *-- 

suite: ld de,accum2 


id hl,accuml 
call multip 


;5--* ACCUMI DANS ACCUM2 *-- 


ld hl,accuml 
ld de,accum2 


ld bc,5 
idir 

;--* STO DANS ACCUMI *-- 
ld hl,sto 
1d de,accuml 
ld bc,5 
ldir 


;--* TEST ET BRANCH. ST EXP. ACCUM2 À ZERO *-- 


, 


ld ix,accum2 
1d a,(ix+4) 
cp O0 

call z,exp80 


;--* ACCUML = ACCUMI - ACCUM2 *-- 
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70A2 
70A5 
70A8 


70AB 
7OAE 
70B1 


70B4 
7087 
70BA 


70BD 
70C0 
70C3 


70C6 
70CA 
70CB 


70CF 
70D0 
7003 


70D4 
7007 
7008 
7ODA 


70DC 
70DF 


70E1 
70E4 
70E7 


70E8 
7OEC 


70ED 
79EF 
70F4 
70F5 
7OFA 
7OFF 
7104 
7106 
7108 
710A 


21FA70 
11FF70 
CD82BD 


2A0471 
11FF70 
CD64BD 


21FA70 
11FF70 
CD7CBD 


21FA70 
CD73BD 
2AFA7O 


ED4BOA71 
0B 
ED430A71 


70 
2A0A71 
77 


2A0871 
7D 
FEOC 
2805 


22ED70 
1894 


21EF70 
CD7DC3 
E2 


DD360480 
C9 


3930 


3000 
OAO0 


950 

960 

970 

980 

990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 


id hl,accuml 
ld de,accum2 
call soustr 
;--* #30 DANS ACCUM2 *-- 
id h1l,(trente) 
1d de,accum2 
call entflo 
;--* ACCUMI = ACCUMI + ACCUM2 (TRANS. ASCII) *-- 
id hl,accuml 
ld de,accum2 
call additi 
;--* RECUP ASCII DANS HL *-- 
ld hl,accuml 
call intflo 
ld hl,(accuml) 
5--* POINT BUF = POINT BUF - 1 *-- 
ld  bc,(pb) 
dec bc 
id  (pb),bc 
;--* TRANS. ASCII DANS BUFFER *-- 
ld a,1l 
ld h1l,(pb) 
ld (hl),a 
5--* TEST ET BRANCH. SI STOENT = O *-- 
1d hl,(stoent) 
ld a,1 
cp O0 
jr z,affbuf 
;--* SINON ENTIER = ASCII (HL) *-- 
1d  (entier),hl 
jr ch 
;--* AFFICHAGE BUFFER *-- 
affbuf: 1d h1l,buffer 
call affich 
ret 
;--* CORRECTION EXPOSANT A #80 *-- 
exp80: 1ld (ix+4),#80 
ret 
;--* ZONES UTILISEES PAR LA ROUTINE *-- 
entier: defw 12345 
buffer: defs 5 ;BUFFER POUR ASCII 
finbuf: defs 1 ;FIN BUFFER 
sto: defs 5 ; STOCKAGE FLOTTANT 
accuml: defs 5 3 ZONE DE CALCUL 
accum2: defs 5 ; ZONE DE CALCUL 


trente: defw #30 


dix: 


stoent: defs 2 


pb: 


defw 10 


; STOCKAGE ENTIER 


defs 2 ; POINTEUR BUFFER 
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Pass 2 errors: O0 


accuml 70FA accum2 70FF additi BD7C 
affbuf 70E1 affich C37D blbuf 7009 
buffer 70EF ch 7075 chiffr 701E 
divise BD88 dix 7106 entflo BD64 
entier /70ED exp80 70E8 finbuf 70F4 
floent BD6A intflo BD73 mazacc 7024 
multip BD85 pb 710A romhau B900 
soustr BD82 sto 70F5 stoent 7108 
suite 7077 trente 7104 


Table used: 334 from 900 
Executes: 28672 


TRAITEMENT DES NOMBRES 


Routine de conversion et affichage d’un nombre entier 
16 bits signé, en décimal 


Légende : 


0 chiffre zéro 
© — lettre (pour «OUI ») 
N— lettre (pour « NON ») 








ACQUISITION 
ENTIER 
SIGNE 






CALCUL 
VALEUR ABSOLUE 
DE ENTIER 














METTRE SIGNE 
EN DEBUT 
DU BUFFER 













R = INT 
(ENTIER/10) 
R = Nouvel entier 


CONSERVER 
NOUVEL 
ENTIER 


R = ENTIER - R 


METTRE CHIFFRE 
ASCII DANS 
BUFFER 





NOUVEL 
ENTIER = 0 
? 






AFFICHAGE 
BUFFER 










ENTIER = 
NOUVEL 
ENTIER 





FIN 
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68 RSX ET ROUTINES ASSEMBLEUR SUR AMSTRAD CPC 


Hisoft GENA3.1 Assembler. 
Pass 1 errors: 00 


10 ;=* ROUT AFF VALEURS ENTIERES SIGNEES *= 
20 ;=* POUR CPC 6128 *= 


7000 30 ent #7000 
7000 40 org #7000 
50 ;--* CONNECTION EN ROM HAUTE *-- 
B900 60 romhau: equ  #b900 
70 ;--* TRANS. ENTIER EN FLOTTANT *-- 
BD64 80 entflo: equ #bdé64 
90 ;--* OPERATIONS EN FLOTTANT *-- 
BD88 100 divise: equ #bd88 
BD85 110 multip: equ #bd85 
BD82 120 soustr: equ #bd82 
BD7C 130 additi: equ #bd7c 
140 ;,--* RECUP PARTIE ENTIERE D'UN FLOTTANT *-- 
BD73 150 intflo: equ #bd73 
160 ;--* TRANS. FLOTTANT EN ENTIER *-- 
BD6A 170 floent: equ #bdé6a 
180 ;--* ROUTINE D'AFFICHAGE D'UN TEXTE ASCII *-_ 
C370 190 affich: equ #c37d 
7000 CD00B9 200 call romhau 
210 ;--* INITIALISATION BUFFER A BLANC *-- 
7003 3E06 220 ld a,6 
7005 DD211171 230 id ix,buffer 
7009 DD360020 240 blbuf: 1d  (ix+0),#20 
7000 DD23 250 inc ix 
700F  3D 260 dec a 
7010 20F7 270 jr  nz,blbuf 
280 ;--* INITIALISATION POINTEUR BUFFER *-- 
7012 011771 290 ld bc,finbuf 
7015 ED432071 300 ld  (pb),bc 
310 ;--* INIT. FIN BUFFER A ZERO POUR ROUTINE AFF. #__ 
7019 3E00 320 ld a,0 
701B 321771 330 id  (finbuf),a 
340 ;--* TEST SIGNE DE ENTIER *-- 
JO1E 2A0F71 350 id hl,(entier) 
7021 E5 360 push hl 
7022 CB7C 370 bit 7,h 
380 ;--* ALLER À CHIFFR SI ENTIER POSITIF *-- 
7024 280A 390 jr z,chiffr 
400 ;--* COMPL. À 2 SI SGN ENTIER NEGATIF *-- 
7026 7C 410 ld _a,h 
7027 2F 420 cpl 
7028 67 430 ld h,a 
7029 7D 440 1d* . 8,1 


702A ?F 450 cpl 
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702B 
702C 
702D 


7030 
7032 
7036 
703A 
703C 
7030 


703F 
7042 
7045 


7048 
704B 
7O4E 
7051 


7053 
7056 
7059 


705C 
705F 
7062 


7065 
7068 


706B 
706F 


7073 
7076 
7079 


707C 
707F 
7082 
7085 


7087 
7089 


708C 
708F 


6F 
23 
220F71 


3EOA 
DD211D71 
DD360000 
DD23 

30 

20F 7 


2A0F71 
111D71 
CD64BD 


211071 
111871 
010500 
EDBO 


2A2971 
112271 
CD64BD 


211D71 
112271 
CD88BD 


211071 
CD73B0 


ED4B1071 
ED432B71 


2A2B71 
111071 
CD64BD 


2A2971 
112271 
CD64BD 
1802 


18A7 
112271 


211D71 
CD85BD 


460 1d l,a 

470 inc hl 

480 ld (entier),hl 

490 ;--* TRAIT. VAL. ABS ENTIER ORIGINAL *-- 
500 chiffr: ld a,10 

510 ld ix,accuml 

520 mazacc: 1d (ix+0),0 

530 inc ix 

540 dec a 

550 jr nz,mazacc 

560 ;--* RECUP. ENTIER EN FLOTTANT *-- 

570 ld hl,(entier) 

580 ld de,accuml 

590 call entflo 

600 ;--* SAUVE FLOTTANT EN STO #-- 

610 id hl,accuml 

620 ld de,sto 

630 ld bc,5 

640 ldir 

650 ;--* 10 DANS ACCUM2 *-- 

660 ld hl,(dix) 

670 id de,accum2 

680 call entflo 

690 ;--* ACCUML = ACCUMI / 10 *-- 

700 id hl,accuml 

710 1d de,accum2 

720 call divise 

730 ;--* RECUP PARTIE ENTIERE DE ACCUMI *-- 
740 1d hl,accuml 

750 call intflo 

760 ;--* SAUVE PARTIE ENTIERE DANS STOENT *-- 
770 ld bc,(accuml) 

780 id  (stoent),bc 

790 ;--* TRANS. ENTIER STOENT EN FLOT. DANS ACCUML *-- 
800 id hl,(stoent) 

810 ld de,accuml 

820 call entflo 

830 ;--* 10 DANS ACCUM2 *-- 

840 id hl,(dix) 

850 1d de,accum2 

860 call entflo 

870 jr suite 

880 ;--* PONT POUR REMONTEE A CHIFFR (RELOGEABLE) *-- 
890 ch: jr chiffr 


900 ;--* ACCUMI = ACCUMI * 10 *-- 
910 suite: Id de,accum2 


920 
930 
940 


, 


1d hl,accuml 
call multip 


;--* ACCUML DANS ACCUM2 *x-- 


70 


7092 
7095 
7098 
709B 


7090 
7OAO 
70A3 
70A6 


70A8 
7OAC 
7OAF 
70B1 


70B4 
70B7 
70BA 


70BD 
70C0 
70C3 


70C6 
70C9 
7OCC 


70CF 
70D2 
70D5 


70D8 
70DC 
70DD 


70E1 
70E2 
70E5 


70E6 
70E9 
7OEA 
7OEC 


70EE 
70F1 


70F3 
70F4 


211071 
112271 
010500 
EDBO 


211871 
111D71 
010500 
EDBO 


DD212271 
DD7E04 
FEOO 
CCOA71 


211071 
112271 
CD82BD 


2A2771 
112271 
CD64B) 


211D71 
112271 
CD7CBD 


211071 
CD73BD 
2A1D71 


ED4B2D71 
0B 
ED432071 


7D 
2A2D71 
77 


2A2B71 
7D 
FEOO 
2805 


220F 71 
1894 


El 
CB7C 


950 

960 

970 

980 

990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 


1140. 


1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
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ld hl,accuml 
la de,accum2 


ld bc,5 
ldir 

;--* STO DANS ACCUML *-- 
ld hl,sto 
ld de,accuml 
ld bc,5 
ldir 


;--* TEST ET BRANCH. SI EXP. ACCUM2 A ZERO *-- 
1d ix,accum2 
ld a,(ix+4) 
cp O0 
call z,exp80 
;--* ACCUMI = ACCUMI - ACCUM2 *-- 
ld hl,accuml 
ld  de,accum2 
call soustr 
;--* #30 DANS ACCUM2 *-- 
ld hl,(trente) 
1d de,accum2 
call entflo 
;--* ACCUMI = ACCUMI + ACCUM2 (TRANS. ASCII) *-- 
ld hl,accuml 
1d de,accum2 
call additi 
;--* RECUP ASCII DANS HL *-- 
id hl,accuml 
call intflo 
ld hl,(accuml) 
5--* POINT BUF = POINT BUF - 1 *-- 


ld bc,(pb) 
dec bc 
1d (pb),bc 
;--* TRANS. ASCII DANS BUFFER *-- 
id a,l 
id h1,(pb) 
ld (hl),a 


;--* TEST ET BRANCH. SI STOENT = O *-- 
ld hl,(stoent) 
id a,1l 
ED. «0 
jr z,affbuf 
3--* SINON ENTIER = ASCII (HL) *-- 
id  (entier),hl 
jr ch 
;--* TEST SIGNE ENTIER ORIGINAL *-- 
affbuf: pop hl 
bit 7,h 
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70F6 2804 1440 jr z,plus 
1450 ;--* SIGNE NEGATIF DANS BUFFER *-- 
70F8 3E2D 1460 ld a,#2d 
70FA 1802 1470 jr sorbuf 
1480 ;--* SIGNE POSITIF DANS BUFFER *-- 
70FC 3E2B 1490 plus: ld a,#2b 
7OFE 2A2D71 1500 sorbuf: 1d h1,(pb) 
7101 2D 1510 dec 1 
7102 77 1520 ld (h1),a 
1530 ;--* AFFICHAGE BUFFER *-- 
7103 211171 1540 ld h1l,buffer 
7106 CD7DC3 1550 call affich 
7109 C9 1560 ret 
1570 ;--* CORRECTION EXPOSANT À #80 *-- 
710A DD360480 1580 exp80: ld (ix+4) 180 
710E C9 1590 ret 
1600 ;--* ZONES UTILISEES PAR LA ROUTINE *-- 
710F D5DD 1610 entier: defw #ddd5 
7111 1620 buffer: defs 6 >BUFFER (dont SGN) 
7117 1630 finbuf: defs 1 FIN BUFFER 
7118 1640 sto: defs 5 ; STOCKAGE FLOTTANT 
711D 1650 accuml: defs 5 ZONE DE CALCUL 
7122 1660 accum2: defs 5 ZONE DE CALCUI. 
7127 3000 1670 trente: defw #30 
7129 OAO0 1680 dix: defw 10 
712B 1690 stoent: defs 2 STOCKAGE ENTIER 
7120 1700 pb: defs 2 POINTEUR BUFFER 
Pass 2 errors: 00 
accumi 711D accum2 7122 additi BD7C 
affbuf 70F3 affich C370 blbuf 7009 
buffer 7111 ch 7087 chiffr 7030 
divise BD88 dix 7129 entflo BD64 
entier 710F exp80 710A finbuf 7117 
floent BD6A intflo BD73 mazacc 7036 
multip BD85 pb 712D plus 70FC 
romhau B900 sorbuf 70FE soustr BD82 
sto 7118 stoent 712B suite 7089 
trente 7127 
Table used: 358 from 900 


Executes: 28672 
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MÉTHODE DE COMPTAGE DES DIZAINES 


Cette méthode consiste à compter successivement le nombre de chaque dizaine, en 
partant de la plus élevée, soit : 


— dizaines de mille, 
— milliers, 

— centaines, 

— dizaines, 

— unités. 


De même que pour la première méthode, nous allons analyser le processus sur un 
exemple. 
Pour chaque dizaine, nous effectuerons 3 étapes successives : 


(1) passage d'une constante pour comptage dizaine, 

(2) soustraire la constante à un entier, 

(3) tester si le résultat précédent est > O0 ou < 0. 
si celui-ci est > O0, faire + 1 dans compteur et retour en (2) 
si < 0, arrêt comptage, et mise compteur en ASCII en buffer. 


Soit la valeur numérique entière non signée 00123. 


Obtention des dizaines de mille : (entier au départ = 00123) 


(1) constante = 10000, 

(2) 00123 — 10000 = résultat < O, 

(3) résultat précédent < 0, arrêt comptage et mise compteur = 1 en ASCII dans buffer 
(dizaine de mille). 


Obtention des milliers : (nouvel entier = 0123) 


(1) constante = 1000, 

(2) 0123 — 1000 = résultat <0, 

(3) résultat précédent < 0, arrêt comptage et mise compteur 
= 1 en ASCII dans buffer (millier). 


Obtention des centaines : (nouvel entier = 123) 


(1) constante = 100, 

(2) 123 — 100 = 23 (à conserver), 

(3) résultat précédent > 0, compteur = 1, 

(2) 23 — 100 = résultat < O, 

(3) résultat précédent < 0, arrêt comptage et mise compteur = 1 en ASCII dans buffer 
(centaine). 


Obtention des dizaines : (nouvel entier = 23) 


(1) constante = 10, 

(2) 23 — 10 = 13 (à conserver), 
(3) résultat précédent > 0, compteur 
(2) 13 — 10 = 3 (à conserver) 

(3) résultat précédent > 0, compteur = 2 


Il 
— 
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(2) 3 — 10 = résultat < O0 
(3) résultat précédent < 0, arrêt comptage et mise compteur = 2 en ASCII dans buffer 
(dizaine). 


Obtention des unités : (nouvel entier = 3) 


(1) constante = 1, 

(2) 3 — 1 = 2 (à conserver), 

(3) résultat précédent > 0, compteur 

(2) 2 — 1 = 1 (à conserver) 

(3) résultat précédent > 0, compteur 

(2) 1 — 1 = O (à conserver) 

(3) résultat précédent < 0, compteur = 3 

(2) O — 1 = résultat < 0 

(3) résultat précédent < 0, arrêt comptage et mise compteur = 3 en ASCII dans buffer 
(unité). 


1, 


2 


Il 


Les 2 routines présentées ci-après, et accompagnées de leur organigramme de 
programmation, sont écrites pour le CPC 6128. Pour les utiliser sur votre CPC 464 ou 
664, seuls les vecteurs RAM sont à changer. 


On pourra remarquer que cette méthode offre des routines moins gourmandes en 
place mémoire ; en effet, la routine de traitement de l'entier non signé n'occupe que 67 
octets en instructions, et 8 octets en données. 

De même, pour la routine de traitement de l'entier signé, la place prise en instructions 
est de 106 octets, et seulement {9 octets pour les données. 
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Routine de conversion et affichage d’un entier non signés 16 bits, en 
décimal, sans utilisation des vecteurs mathématiques 


COMPTAGE 
NB DE DIZAINES 
DE MILLIERS 


CHIFFRE 
ASCII OBTENU 
DANS BUFFER 


COMPTAGE 
NB DE 
MILLIERS 


CHIFFRE 
ASCII OBTENU 
DANS BUFFER 


COMPTAGE 
NB DE 
CENTAINES 


CHIFFRE 
ASCII OBTENU 
DANS BUFFER 


COMPTAGE 
NB DE 
DIZAINES 


CHIFFRE 
ASCII OBTENU 
DANS BUFFER 


COMPTAGE 
NB 


D'UNITES 


CHIFFRE 
ASCII OBTENU 
DANS BUFFER 


AFFICHAGE 
ENTIER 





FIN 
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Hisoft GENA3.1 Assembler. 


Pass 1 errors: 00 


10 ;=* TRANSF ENTIER EN ASCII POUR CPC 464/664/6128 =* 
20 ;=* SANS UTILISATION DES VECTEURS MATHEMATIQUES  =* 


7000 30 ent #7000 
7000 40 org #7000 
50 ;,--* AFFICHAGE D'UN TEXTE ASCII *-- 

C37D 60 affich: equ #c37d 

70 ;--* CONNECTION EN ROM HAUTE *-- 
B900 80 romhau: equ #b900 
7000 CD00B9 90 call romhau 

100 ;--* ACQUISITION ENTIER *-- 
7003 ED4B4370 110 ld bc,(entier) 

120 ;--* INIT POINTEUR DE CHAINE ASCII *-- 
7007 DD214570 130 ld ix,chaine 

140 ;--* NB DE FOIS 10000 COMPLET *-- 
700B 111027 150 ld de , 10000 
700€ CD3070 160 call ascii 

170 ;--* NB DE FOIS 1000 COMPLET *-- 
7011 11E803 180 ld de, 1000 
7014 CD3070 190 call ascii 

200 ;--* NB DE CENTAINES COMPLETES *-- 
7017 116400 210 1d de,100 
701A CD3070 220 call ascii 

230 ;--* NB DE DIZAINES COMPLETES *-- 
701D 110A00 240 ld de, 10 
7020 CD3070 250 call ascii 

260 ;--* NB D'UNITES *-- 
7023 110100 270 1d de,l 
7026 CD3070 280 call ascii 

290 ;--* AFFICHAGE CHAINE ASCII *-- 
7029 214570 300 id hl,chaine 
702C CD7DC3 310 call affich 
702F C9 320 ret 

330 ;--* DETERM DU NB DE CHAQUE TRANCHE *-- 
7030 3E2F 340 ascii: Jld a,#2fF 

350 ;--* ACQUISITION NOUVEL ENTIER *-- 
7032 60 360 ld h,b 
7033 69 370 ld 1,c 

380 ;--* COMPTAGE UNITES PAR TRANCHE #-- 
7034 3C 390 compte: inc a 
7035 ED52 400 sbc hl,de 

410 ;--* SI POSITIF COMPTAGE UNITES *-- 
7037 30FB 420 jr nc,compte 


430 ;--* PLUS D'UNITES DANS LA TRANCHE *-- 
44O :;--* CORRICE ENTIER EN POSITIF *-- 
7039 ED5A 450 adc hl,de 
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703B 
703C 


7030 


7040 
7042 


7043 
7045 


Pass 


44 
4D 


DD7700 


DD23 
C9 


7D00 


460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 


2 errors: O0 


affich C37D ascii 
compte 7034 


Table used: 


Executes: 


28672 
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;--* SAUVE NOUVEL ENTIER *-- 
ld b,h 
Ed.r Cl 
;--* CAR ASCII DANS CHAINE *-- 
1d (ix+0),a 
;--* INCREMENT POINTEUR CHAINE *-- 
inc ix 
ret 
5--* ZONES UTILISEES PAR LA ROUTINE *-- 
entier: defw 125 
chaine: defs 6 


7030 chaine 7045 
entier 7043 romhau B900 


90 from 900 
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Routine de conversion et affichage d’un nombre entier signé sur 16 bits, en 
décimal, sans utilisation des vecteurs mathématiques 


Légende : 


ACQUISITION 
ENTIER 
SIGNE 









O — chiffre zéro 











CALCUL 
VALEUR ABSOLUE 
DU NB ENTIER 






SIGNE 
DANS BUFFER 


CONVERSION 
ENTIER EN 
DECIMAL ASCII 
DANS BUFFER 








AFFICHAGE 
ENTIER 








FIN 
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Hisoft GENA3.1 Assembler. 


Pass 1 errors: 00 


10 ;=* ENTIER SIGNE EN ASCII POUR CPC 464/664/6128 =* 
20 ;=* SANS UTILISATION DES VECTEURS MATHEMATIQUES =* 











7000 30 ent  #7000 
7000 40 org #7000 

50 ;--* AFFICHAGE D'UN TEXTE ASCII *-- 
C370 60 affich: equ #c37d 

70 ;--* CONNECTION EN ROM HAUTE *-- 
B900 80 romhau: equ #b900 
7000 CDO0B9 90 call romhau 

100 ;--* ACQUISITION ENTIER *-- 
7003 ED4B6A70 110 1d bc,(entier) 
7007 CB78 120 bit 7,b 
7009 280B 130 jr z, pos 

140 ;--* COMPLEMENT A 2 DE ENTIER *-— 
700B 78 150 ld a,b 
700C 2F 160 cpl 
700D 47 170 ld b,a 
700E 79 180 ld a,C 
700F  2F 190 cpl 
7010 4F 200 ld c,a 
7011 O3 210 inc bc 

220 ;--* ENTIER EST DU SGN MOINS *-- 
7012 3E2D 230 ld a,#2d 
7014 1802 240 jr  sgn 

250 ;--* ENTIER EST DU SGN PLUS *-- 
7016 3E2B 260 pos: id a,#2b 

270 ;--* SAUVE SIGNE DEVANT CHAINE *-_ 
7018 326C70 280 sgn: 1d  (signe),a 

290 ;--* INIT POINTEUR DE CHAINE ASCII *-- 
701B DD216D70 300 ld ix,chaine 

310 ;--* NB DE FOIS 10000 COMPLET *-- 
7O1F 111027 320 ld de, 10000 
7022 CD5770 330 call ascii 

340 ;--* NB DE FOIS 1000 COMPLET *-- 
7025 11E803 350 ld de, 1000 
7028 CD5770 360 call ascii 

370 ;--* NB DE CENTAINES COMPLETES *-- 
702B 116400 380 ld de, 100 
702E CD5770 390 call ascii 

400 ;--* NB DE DIZAINES COMPLETES *-- 
7031 110A00 410 ld de, 10 
7034 CD5770 420 call ascii 


430 ;--* NB D'UNITES *-- 
7037 110100 440 ld de,l 
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703A 


703D 
7040 
7041 
7044 
7045 
7046 
7047 
7049 


704B 
7O4E 


7050 
7053 
7056 
7057 


7059 
705A 


7058 
705C 


705€ 


7060 


7062 
7063 


7064 


7067 
7069 


706 
706C 
706D 


CD5770 


216D70 
2B 
010700 
0B 

23 

7E 
FE30 
28F9 


116D70 
EDBO 


216C70 
CD7DC3 
C9 
3E2F 


60 
69 


3C 
ED52 


30FB 


EDS5A 


44 
4D 


DD7700 


DD23 
C9 


D50D 


450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
779 
780 
790 
800 
810 
820 
830 
840 
850 
860 


call ascii 
;--* SUP ZEROS NON SIGNIF DANS CHAINE *-- 
ld hl,chaine 


dec hl 

id bc,7 
bcl: dec bc 

inc h1l 

ld a,(hl) 

cp #30 

ir z,bcl 


;--* TRANSF CHIFFR SIGNIF AU DEBUT *-- 
ld de,chaine 
ldir 
;--* AFFICHAGE CHAINE ASCII *-- 
ld hl,signe 
call affich 
ret 
;--* DETERM DU NB DE CHAQUE TRANCHE *-- 
ascii: Id a,#2f 
5--* ACQUISITION NOUVEL ENTIER *-- 
ld h,b 
10 :1;e 
;--* COMPTAGE UNITES PAR TRANCHE *-- 
compte: inc a 
sbc hl,de 
;--* SI POSITIF COMPTAGE UNITES *-- 
jr nc,compte 
3--* PLUS D'UNITES DANS LA TRANCHE *-- 
3--* CORRIGE ENTIER EN POSITIF *-- 


adc hl,de 

;--* SAUVE NOUVEL ENTIER *-- 
1d b,h 
1d': :C;1 


* 


;--* CAR ASCII DANS CHAINE *-- 
ld (ix+0),a 
;--* INCREMENT POINTEUR CHAINE *-- 
inc ix 
ret 
;--* ZONES UTILISEES PAR LA ROUTINE *-- 
entier: defw #ddd5 
signe: defs 1 
chaine: defs 6 
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Pass 2 errors: O0 


affich C37D ascii 7057 bcl 7044 
chaine 706D compte 705B entier 706A 
pos 7016 romhau B900 sgn 7018 
signe 706C 


Table used: 132 from 900 
Executes: 28672 


ROUTINES DE TRAITEMENT DES NOMBRES FLOTTANTS 


Rappels 


Un nombre flottant permet de représenter un nombre réel, positif ou négatif, en 
mémoire. 

Un nombre réel est constitué d'un signe, d'une partie entière, et d’une partie décimale. 
Pour représenter un nombre réel en mémoire, un nombre flottant est constitué d'une 
mantisse et d'un exposant. 


La mantisse représente une chaîne de bits, intégrant le signe, la partie entière, et la 
partie décimale du nombre réel ; mais rien ne permet de distinguer la partie entière de 
la partie décimale. 


L'exposant quant à lui permet de pallier cette lacune au niveau de la mantisse, 
puisqu'en effet c'est lui qui permet d'indiquer la séparation entre la partie entière et la 
partie décimale. 


Représentation d'un flottant sur Amstrad CPC : 


Cinq octets suffisent pour représenter n'importe quel nombre réel en mémoire de 
l'Amstrad CPC. 

Toutefois, il ne faut pas perdre de vue, le fait que plus un réel est grand, plus la 
précision obtenue diminue, et ceci est encore plus vrai pour les décimales. 


Dans le cas de l'Amstrad CPC, la configuration des cinq octets d’un flottant est la 
suivante : 

— MANTISSE > 4 premiers octets (octets O à 3) 

— EXPOSANT > cinquième octet (octet 4) 


Le signe du nombre réel est déterminé par le bit 7 de l'octet 3. La représentation de 
notre nombre flottant sera donc la suivante : 


€&————— MANTISSE ——È——— “EXPOSANT” 
S 
octet O octet 1 octet 2 octet 3 octet 4 


La lecture de la mantisse se fait de l'octet 3 vers l’octet O. 
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Pour déterminer la frontière de bit entre la partie entière et la partie décimale, il nous 
faut soustraire #80 de l'octet 4. Le nombre ainsi obtenu nous donne le nombre de bits 
à prendre, en partant de l'octet 3 vers l'octet 0, pour la partie entière du nombre 
flottant. 


Une fois le signe obtenu, et avant tout traitement, le bit 7 de l'octet 3 est mis 
systématiquement à 1 ; en effet, à la création d'un nombre flottant, la partie entière 
commence obligatoirement par un bit à 1; mais celui-ci est mis à O ou à 1 pour 
distinguer un nombre réel positif d'un nombre réel négatif. 


Lecture d’un nombre flottant 


Dès que nous avons déterminé le nombre de bits à traiter pour la partie entière, nous 
disposerons les octets 3 à 0 de la droite vers la gauche, pour procéder à la lecture de 
la partie entière et de la partie décimale du nombre flottant. 


Nous allons raisonner sur un exemple que nous conserverons pour la suite du 
traitement d'un nombre flottant. 


Soit le nombre réel positif : 1235.786 


Sa représentation mémoire sera : HEXA — DD 24 E7 40 8E 
OCTETS —0 1 2 3 4 


En binaire, et en partant de l'octet 3, la mantisse sera : 
76543210/76543210/76543210/76543210 
01000000/11100111[/0010010011011101 


OCTET 3 OCTET 2 OCTET 1 OCTET 0 


L'exposant étant #8E, le nombre de bits à traiter pour la partie entière sera 14 (ou E en 
hexadécimal). 


Avant tout traitement, et après avoir remarqué que le bit 7 de l'octet 3 est à O, soit un 
nombre positif, nous devons mettre le bit 7 de cet octet à 1. 


Le schéma suivant va nous indiquer la position virtuelle de la virgule flottante, ainsi que 
les sens de lecture binaire de la partie entière et de la lecture de la partie décimale. 
Le nombre de l'exposant indique la position du 1° bit de la partie entière ; celui-ci, 
repéré par le nombre #E, indique que son «poids » sera de 1, soit 2 puissance 0. 
La lecture binaire devra donc s'effectuer en partant de ce bit, soit du bit de «poids 
faible » au bit de «poids fort» (2 à la puissance 13). 


*<———14 premiers bits ———%+ (exposant = #8E) 

12345678 9ABCDE 

11000000!11100111/00100100|11011101 
OCTET 3 OCTET 2 OCTET 1 OCTET 0 


+— + —_——— 
lecture partie entière lecture partie décimale 
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a) calcul de la partie entière : 





1100000 0 1 1 1 O O 1 


| | | ss = 1 

| És … =  O0+ 
Ox 2-2 = 0 + 

| | 1 x 2-3 8 + 
1 x 2-4 16 + 
1 x 2*5 32 + 
0 x 2-6 0 + 

















OX 2-7 = 0 + 
0Ox2-8 = 0 + 
0 x2-9 = 0 + 
LS = #0 X 2-10:= 0 + 
0 x 2-11 = O0 + 
1x 2-12 = 4096 + 





1x 2-13 = 8192 + 





12345 


Le principe est très simple, puisqu'il s'agit de multiplier chaque bit par une puissance 
de 2 correspondant au poids du bit traité. Il suffit ensuite de sommer chaque nombre 
ainsi obtenu pour obtenir la partie entière, soit ici 12345. 

Les poids des bits vont de O0 à 13, en partant du bit le plus à droite des 14 bits. 


b) calcul de la partie décimale : 


—————————— + 
11001001001170111 01 


1/2-18 = 0.0000038 
0 /2-17 = 0.0000076 + 
1/2-16 = 0.0000153 + 
1/2-15 = 0.0000305 + 
| 1/2-14 = 0.0000610 + 
0 /2-13 = 0.0001221 + 
1/2-12 = 0.0002441 + 
LL + 17/2"11 = 0.0004883 + 
0 /2-10 = 0.0009766 + 
08 0/20 = 0019591 
1/2-8 — 0.0039063 + 
0/2-7 = 0.0078125 + 
| ———— 0/2-6 = 0.0156250 + 
+ 1/2-5 = 0.0312500 + 
0/2-4 = 0.0625000 + 
0/2-3 = 0.1250000 + 
1/2-2 = 0.2500000 + 
CL y» 1/2-1 = 0.5000000 + 


0.7859993 


IF 
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Le principe est presque aussi simple que pour la partie entière, puisqu'il s'agit de 
diviser chaque bit par une puissance de 2 correspondant au poids du bit traité. 


Il suffit ensuite de sommer chaque nombre ainsi obtenu pour obtenir la partie 
décimale, soit ici 0.78599983. 


Les puissances des bits vont de 1 à 18, en partant du bit le plus à gauche des 18 bits 
de la partie décimale. 


Remarque importante 


On constatera que la partie décimale obtenue ne nous donne pas exactement le 
résultat désiré. 


Si nous voulons une approximation au 9/1000°, le traitement des 6 premiers bits de la 
partie décimale suffit amplement ; dans ce cas, seuls les 3 premiers chiffres décimaux 
seront conservés. C'est ce nombre de bits que nous traiterons dans la routine. 


ROUTINE D'AFFICHAGE D'UN FLOTTANT, EN DÉCIMAL 
La méthode utilisée est une méthode classique qui consiste à isoler la partie entière, 
puis la partie décimale, du flottant. 


Prenons un exemple pour bien comprendre le processus utilisé. Soit le nombre flottant 
négatif : —128.45. 


Première étape : 


Déterminer le signe du nombre flottant traité, en testant le bit 7 de l'octet 3, et le 
conserver pour l'affichage ultérieur. 
Puis mettre le bit 7 de l'octet 3 à 1 pour traiter le nombre en valeur absolue. 


Deuxième étape : 


Isoler la partie entière de la valeur absolue du flottant traité. 
Soit: ZENT = INT (123.45) = 123 (à conserver). 


Troisième étape : 


Isoler la partie décimale de la valeur absolue du flottant. 
Soit: ZDEC = 123.45 — ZENT = 0.45 (à conserver). 


Quatrième étape : 


Mettre la partie décimale sous la forme d'une valeur entière. 
Soit : ZDEC = ZDEC x 1000 = 450 (obtention de 3 décimales). 
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Cinquième étape : 


Rassembler le signe, la partie entière, la virgule, et la partie décimale dans un buffer 
ASCII, pour affichage. 
Soit : BUFFLO = —128,450. 


Les diverses étapes exposées seront réalisées simplement, par utilisation des routines 
mathématiques flottantes en RAM. 


Ci-après, vous trouverez l'organigramme de programmation, ainsi que la routine 
assembleur correspondante. 
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Routine de conversion et affichage d’un flottant, en décimal, avec utilisation 


des vecteurs mathématiques en RAM 


DETERMINER 
SIGNE 
FLOTTANT 




























CALCUL 
VALEUR ABSOLUE 
DU FLOTTANT 





DETERMINER 
PARTIE ENTIERE 
DU FLOTTANT 


DETERMINER 
PARTIE 
FRACTIONNAIRE 
DU FLOTTANT 


OBTENTION 
PARTIE 
DECIMALE AVEC 
3 CHIFFRES 





CONVERSION 


(Voir conversion 
PARTIE ENTIERE 


ENTIER en FLOTTANT) 
obtention ASCII dans 


EN 
DECIMAL ASCII BUFENT 


CONVERSION (Voir conversion 


PARTIE ____ _J'ENTIER en FLOTTANT) 
DECIMALE EN obtention ASCII dans 
DECIMAL ASCII BUFDEC 





OBTENTION 
BUFFER FINAL 
POUR 
AFFICHAGE 


BUFENT et BUFDEC 


Concaténation de 
dans BUFFLO 


AFFICHAGE 
DU 
FLOTTANT 
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Hisoft GENA3.1 Assembler. 


Pass 1 errors: O0 


10 ;=* ROUT AFF VALEURS FLOTTANTES *-= 





20 ;=* POUR CPC 6128 *- 
7000 30 ent #7000 
7000 40 org #7000 
50 ;--* CONNECTION EN ROM HAUTE *-- 
B900 60 romhau: equ #b900 
70 ;--* TRANS. ENTIER EN FLOTTANT *-- 
BD64 80 entflo: equ bdé64 
90 ;--* OPERATIONS EN FLOTTANT *-- 
BD88 100 divise: equ #bd88 
BD85 110 multip: equ #bd85 
BD82 120 soustr: equ #bd82 
BD7C 130 additi: equ #bd7c 
140 ;--* RECUP PARTIE ENTIERE D'UN FLOTTANT *-- 
BD73 150 intflo: equ #bd73 
160 ;--* TRANS. FLOTTANT EN ENTIER *-- 
BD6A 170 floent: equ #bdé6a 
180 ;--* TEST SIGNE FLOTTANT *-- 
BD94 190 sgnflo: equ #bd94 
200 ;--* NEGATION D'UN FLOTTANT *-- 
BD91] 210 negflo: equ #bd9l 
220 ;--* ROUTINE D'AFFICHAGE D'UN TEXTE ASCII *-- 
C37D 230 affich: equ #c37d 
240 ; 
7000  CDO0B9 250 call romhau 
260 ;--* CHARG EX DE VAL FLOTTANT DANS ZFLOT *-- 
7003 DD211372 270 ld _ix,zflot 
7007  3E00 280 id _a,0 
7009 DD7700 290 1d (ix+0),a 
700C  3E00 300 ld _a,0 
700E DD7701 310 ld (ix+1),a 
7011 3E00 320 id a,0 
7013 DD7702 330 ld (ix+2),a 
7016 3EA8 340 id a,#a8 
7018 DD7703 350 ld (ix+3),a 
701B 3E84 360 ld a,#84 
701D DD7704 370 1d (ix+4),a 
380 ;--* SAUVE SIGNE DU FLOTTANT *-- 
7020 DD211372 390 id _ix,zflot 
7024 DD7E03 400 ld a,(ix+3) 
7027 CB7F 410 bit 7,a 
7029 2004 420 jr nz,moins 
702B 3E2B 430 ld a,#2b 
702D 1802 440 jr sgn 
702F  3E2D 450 moins: Id a,#2d 
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7031 325672 460 sgn: ld  (signe),a 
470 ;--* CALCUL VAL ABS DU FLOTTANT *-- 
7034 DD7E03 480 ld a,(ix+3) 
7037 CB27 490 sla a 
7039 CB2F 500 sra à 
703B DD7703 510 ld (ix+3),a 
520 ;--* ZFLOT DANS ACCUMI *-- 
703€ 211372 530 id hl,zflot 
7041 114072 540 ld de,accuml 
7044 010500 550 id bc,5 
7047 EDBO 560 ldir 
570 ;--* RECUP PARTIE ENTIERE DE ACCUML *-- 
7049 214072 580 ld hl,accum! 
704C CD73BD 590 call intflo 
704F  2A4072 600 1d h1, (accuml) 
610 ;--* HL DANS ZENT *-- 
7052 221872 620 ld (zent),hl 
630 ;--* ZENT EN FLOTTANT DANS ACCUMI *-- 
7055 2A1872 640 id hl,(zent) 
7058 114072 650 ld de,accuml 
705B CD64BD 660 call entflo 
705€ DD214072 670 l1d ix,accuml 
7062 DD7E03 680 id a,(ix+3) 
7065 CB27 690 sla a 
7067 CB2F 700 Sra à 
7069 DD7703 710 ld (ix+3),a 
720 ;--* ACCUMI DANS ACCUM2 *-- 
706C 214072 730 ld hl,accuml 
706F 114572 740 ld de,accum?2 
7072 010500 750 id bc,5 
7075  EDBO 760 ldir 
770 ;--* ZFLOT DANS ACCUMI *-- 
7077 211372 780 ld hl,zflot 
707A 114072 790 ld de,accuml 
707D 010500 800 1d) b6;5 
7080 EDBO 810 ldir 
820 ;--* ACCUMI = ACCUMI - ACCUM2 *-- 
7082 214072 830 1d hl,accuml 
7085 114572 840 ld de,accum2 
7088 CD82BD 850 call soustr 
860 ;--* 1000 DANS ACCUM2 *-- 
708B 2A4A72 870 id hl,(mille) 
J70O8E 114572 880 ld de,accum2 
7091 CD64BD 890 call entflo 
900 ;--* ACCUMI = ACCUMI * 1000 *-- 
7094 214072 910 ld hl,accuml 
7097 114572 920 ld de,accum2 
709A  CD85BD 930 call multip 


940 ;--* FLOTTANT EN ENTIER DANS HL *-- 


709D 
7OAO 
70A3 


70A6 


70A9 
7OAC 


7OAF 


70B2 
70B5 
70B8 
70BB 


70BD 
70C0 


70C3 


70C6 
70C9 
7OCC 
7OCF 


70D1 
70D4 
70D7 
70DA 
70DB 
7ODD 
70ODF 
70E0 
70E1 
70E3 
70E4 
70E6 








NN NNN NN IN NN 
© 
m 
TT 


214072 
CD73BD 
2A4072 


221A72 


2A1872 
225472 


CD1B71 


211C72 
1123572 
010600 
EDBO 


2A1A72 
225472 


CDIB71 


211C72 
112972 
010600 
EDBO 


010600 
212372 
112F72 
7E 
FE20 
2004 
23 

OD 
18F7 
C5 
EDBO 
C1 


212F72 
09 
3E2C 
77 

23 

54 

5D 
212972 
010600 
JE 
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950 1d hl,accuml 
960 call intflo 
970 ld hl,(accuml) 
980 ;--* HL DANS ZDEC *-- 
990 id (zdec),hl 
1000 ;--* ZENT DANS ENTIER *-- 
1010 1d hl,(zent) 
1020 id  (entier),hl 
1030 ;--* ENTIER EN ASCII DANS BUFFER *-- 
1040 call ascii 
1050 ;--* BUFFER DANS BUFENT #-- 
1060 ld h1l,buffer 
1070 id de,bufent 
1080 id bc,6 
1090 ldir 
1100 ;--* ZDEC DANS ENTIER *-- 
1110 1d hl,(zdec) 
1120 ld  (entier),hl 
1130 ;--* ENTIER EN ASCII DANS BUFFER *-- 
1140 call ascii 
1150 ;--* BUFFER DANS BUFDEC *-- 
1160 id hl,buffer 
1170 ld de,bufdec 
1180 id bc,6 
1190 ldir 
1200 ;--* BUFENT DANS BUFFLO SAUF BLANCS *-- 
1210 ld bc,6 
1220 id hl,bufent 
1230 ld de,bufflo 
1240 sib: id a,(hl) 
1250 cp #20 
1260 jr nz,tbe 
1270 inc hl 
1280 dec c 
1290 jr sib 
1300 tbe: push bc 
1310 ldir 
1320 pop bc 
1330 ;--* BUFDEC DANS BUFFLO SAUF BLANCS ET SGN *-- 
1340 ld h1l,bufflo 
1350 add hl,bc 
1360 id a,#2c 
1370 ld (h1l),a 
1380 inc hl 
1390 ld d,h 
1400 Éd: ‘ét 
1410 ld hl,bufdec 
1420 ld bc,6 


1430 sibmp: Id a,(hl) 
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70F8 FE20 1440 cp #20 
7OFA 2002 1450 jr  nz,sim 
70FC 180A 1460 jr  ptb 
JOFE FE20 1470 sim: cp  #2d 
7100 2002 1480 jr  nz,sip 
7102 1804 1490 jr ptb 
7104 FE2B 1500 sip: cp 1F2D 
7106 2004 1510 jr nz,tbel 
7108 23 1520 ptb: inc hl 
7109 OD 15350 dec c 
710A 18EB 1540 ir  sibmp 
710C EDBO 1550 tbel: ldir 
1560 ;--* AFFICHAGE BUFFLO *-- 
710E 3A5672 1570 ld a,(signe) 
7111 322F72 1580 ld (bufflo),a 
7114 212F72 1590 ld hl,bufflo 
7117 CD7DC3 1600 call affich 
711A C9 1610 ret 
1620 ;--* INITIALISATION BUFFER A BLANC *-- 
711B 3E06 1630 ascii: Id a,6 
711D DD211C72 1640 ld ix,buffer 
7121 DD360020 1650 blbuf: ld  (ix+0),#20 
7125 DD23 1660 inc ix 
7127 3D 1670 dec a 
7128 20F7 1680 jr nz,blbuf 
1690 ;--* INITIALISATION POINTEUR BUFFER *-- 
712A 012272 1700 id bc,finbuf 
712D ED435272 1710 ld (pb),bc 
1720 ;--* INIT. FIN BUFFET A ZERO POUR ROUTINE AFF. 
7131 3E00 1730 ld a, 
7133 322272 1740 1d (finbuf),a 
1750 ;--* SAUVE SIGNE DE ENTIER *-- 
7136 2A5472 1760 id hl,(entier) 
7139 ES5 1770 push h1l 
1780 ;--* TRAIT, VAL. ABS ENTIER ORIGINAL *-- 
713A 3E0A 1799 chiffr: 1d a,10 
713C DD214072 1800 ld ix,accuml 
7140 DD360000 1810 mazacc: ld (ix+0),0 
7144  DD23 1820 inc ix 
7146 3D 1830 dec a 
7147 20F7 1840 JT nz,mazacc 
1850 ;--* RECUP. ENTIER EN FLOTTANT *-- 
7149 2A5472 1860 ld hl,(entier) 
714C 114072 1870 ld de,accuml 
714F  CD64BD 1880 call entflo 
1890 ;--* SAUVE FLOTTANT EN STO *-- 
7152 214072 1900 ld hl,accuml 
7155 113B72 1910 ld de,sto 
7158 010500 1920 Id. ‘bc,;5 
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7158  EDB0O 1930 ldir 
1940 ;--* ]0 DANS ACCUM2 *-- 
7150 244E72 1950 1d hl,(dix) 
7160 114572 196C 1d de,accum2 
7163 CD64BD 1970 call entflo 
1980 ;--* ACCUMI = ACCUMI / 10 *-- 
7166 214072 1990 id hl,accuml 
7169 114572 2000 ld de,accum2 
716C CD88BD 2010 call divise 
2020 ;--* RECUP PARTIE ENTIFRE DE ACCUMI *-- 
716F 214072 2030 ld hl,accuml 
7172 CD73BD 2040 call intflo 
2050 ;--* SAUVE PARTIE ENTIERE DANS STOENT *-- 
7175 ED4B4072 2060 ld bc,(accuml) 
7179 ED435072 2070 ld (stoent) ,bc 
2080 ;--* TRANS. ENTIER STOENT EN FLOT. DANS ACCUMI *-- 
7170 2A5072 2090 id hl,(stoent) 
7180 114072 2100 ld de,accuml 
7183 CD64BD 2110 call entflo 
2120 ;--* 10 DANS ACCUM2 *-- 
7186 2A4E72 2130 1id hl,(dix) 
7189 114572 2140 id  de,accum2 
718C CD64BD 2150 call entflo 
718F 1802 2160 jr suite 
2170 ;--* PONT POUR REMONTEE A CHIFFR (RELOGEABLE) *-- 
7191 1847 2180 ch: ir  chiffr 





2190 ;--* ACCUMI = ACCUMI * 10 *-- 
7193 114572 2200 suite: Ild de,accum2 


7196 214072 2210 id hl,accuml 
7199 CD85BD 2220 cell multip 
2230 ;--* ACCUMI DANS ACCUM2 *-- 
719C 214072 2240 ld hl,accuml 
719F 114572 2250 ld de,accum2 
71A2 010500 2260 ld bc,5 
71A5 EDBO 2270 ldir 
2280 ;--* STO DANS ACCUMI *-- 
71A7 213B72 2290 ld h1,sto 
71AA 114072 2300 ld de,accuml 
71AD 010500 2310 1d.… be;,5 
71B0 EDBO 2320 ldir 
2330 ;--* TEST ET BRANCH. SI EXP. ACCUM2 A ZERO *-- 
7182 DD214572 2340 ld ix,accum2 
7186 DD7E04 2350 ld a,(ix+4) 
71B9 FEOO 2360 cp O0 
71BB CCOE72 2370 call z,exp80 
2380 ;--* ACCUMI = ACCUMI - ACCUM2 *-- 
71BE 214072 2390 id hl,accuml 
71C1 114572 2400 ld  de,accum2 


71C4 CD82BD 2410 call soustr 
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71C7 
71CA 
71CD 


71D0 
71D3 
71D6 


7109 
71DC 
71DF 


71E2 
71E6 
71E7 


71EB 
71EC 
71EF 


71F0 
71F3 
71F4 
71F6 


71F8 
71FB 


71FD 
71FE 
7200 


7202 
7204 


7206 
7208 
720B 
720C 
7200 


720€ 
7212 


7213 
7218 
721A 
721C 


2A4C72 
114572 
CD64BD 


214072 
114572 
CD7CBD 


214072 
CD73BD 
2A4072 


ED4B5272 
0B 
ED435272 


70 
2A5272 
77 


2A5072 
70 
FE00 
2805 


225472 
1894 


El 
CB7C 
2804 


3E2D 
1802 


3E2B 
2A5272 
2D 

77 

C9 


DD360480 
C9 


2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
7610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 


3--* {#30 DANS ACCUM2 *-- 
id hl,(trente) 
ld  de,accum2 
call entflo 


;--* ACCUMI = ACCUMI + ACCUM2 (TRANS. ASCII) *-- 


ld hl,accuml 
ld de,accum2 
call additi 

;--* RECUP ASCII DANS HL 
ld hl,accuml 
call intflo 


LE 


ld hl,(accuml) 
5--* POINT BUF = POINT BUF - 1 *-- 
ld bc, (pb) 
dec bc 
ld (pb),bc 
;3--* TRANS. ASCII DANS BUFFER *-- 
ld a,1 
id h1l,(pb) 
ld (hl),a 


;3--* TEST ET BRANCH. SI STOENT = O *-- 


1d h1l,(stoent) 
ld a,1l 
Cp 0 


jr z,affbuf 


;--* SINON ENTIER = ASCII (HL) *-- 


ld  (entier),hl 
jr ch 


;--* TEST SIGNE ENTIER ORIGINAL *-- 


affbuf: pop hl 
bit 7,h 
ir z,plus 


;--* SIGNE NEGATIF DANS BUFFER *-- 


ld a,#2d 
jr  sorbuf 


;5--* SIGNE POSITIF DANS BUFFER *-- 


plus: ld a,#2b 
sorbuf: ld h1l,(pb) 
dec 1 
ld (h1l),a 
ret 
;--* CORRECTION EXPOSANT 
exp80: Id  (ix+4),#80 
ret 
;3--* ZONES UTILISEES PAR 
zflot: defs 5 
zent: defs 2 
zdec: defs 2 
buffer: defs 6 


A #80 *-- 


LA ROUTINE *-- 
> RECEPTION FLOT 
;PART ENT OÙ FLOT 
;PART DEC OÙ FLOT 
:BUFFER (dont SGN) 
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7222 2910 finbuf: defs 1 ;FIN BUFFER 

7223 2920 bufent: defs 6 ;BUF ASCII PART ENT 
7229 2930 bufdec: defs 6 ;BUF ASCII PART DEC 
722F 2940 bufflo: defs 12 ;BUF ASCII DU FLOT 
723B 2950 sto: defs 5 ; STOCKAGE FLOTTANT 
7240 2960 accuml: defs 5 ; ZONE DE CALCUL 
7245 2970 accum2: defs 5 :ZONE DE CALCUL 
724A E803 2980 mille: defw 1000 

724C 3000 2990 trente: defw #30 

724E  OAOO 3000 dix: defw 10 

7250 3010 stoent: defs 2 ; STOCKAGE TNTIFR 
7252 3020 pb: defs 2 3POINTEUR BUFFER 
7254 3030 entier: defs 2 ; PARAM POUR TRAIT 
7256 3040 signe: defs 1] ; SIGNE DU FLOTTANT 


Pass 2 errors: 00 


accuml 7240 accum2 7245 additi BD7C 
affbuf 71FD affich C37D ascii 711B 
blouf 7121 bufdec 7229 bufent 7223 
buffer 721C bufflo 722F ch 7191 
chiffr 713A divise BD88 dix 724E 
entflo BD64 entier 7254 exn80 720€ 
finbuf 7222 floent BD6A intflo BD73 
mazacc 7140 mille 724A moins 702F 
multip BD85 negflo BD91 pb 7252 
plus 7206 ptb 7108 romhau B900 
sgn 7031 sgnflo BD94 sib 70DA 
sibmp 70F7 signe 7256 sim 70FE 
sip 7104 sorbuf 7208 soustr BD82 
sto 723B stoent 7250 suite 7193 
tbe 70E3 tbel 710C trente 724C 
zdec 721A zent 7218 zflot 7213 


Table used: 588 from 900 
Executes: 28672 
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ROUTINE DE RÉCUPÉRATION 
DE LA PARTIE ENTIÈRE D'UN FLOTTANT 


Un entier 16 bits signé permet d'obtenir des valeurs comprises entre —-32768 et 
+32767. 


A partir de ce rappel, nous pouvons dire que seuls les 15 premiers bits de la mantisse 
seront nécessaires pour récupérer la partie entière d'un nombre flottant. 


Le processus de traitement de la partie entière, précédemment énoncé, n'est pas 
applicable directement, en raison de l'absence d'instructions Z80 permettant l'accès 
indicé à un bit. 


Il nous faut donc adopter un autre processus, qui lui fait appel à des instructions de 
décalage, de test d'un bit donné, et de positionnement de bit à O ou à 1. 


A partir de notre exemple de départ, nous allons expliquer en détails le fonctionnement 
de cette méthode, qui n'est certes pas la seule existante en matière de traitement d'un 
flottant. 


Soit le flottant pris en exemple: 1235.786—DD 24 E7 40 8E (H) 
0 L 2 3 4 


Afin de se rapprocher le plus possible de la routine présentée ultérieurement, pour une 
meilleure compréhension de celle-ci, nous ferons l'analyse du processus en nous 
servant des doubles registres utilisés dans la routine en question. 


Première étape : 


Mettre les octets 3 et 2 dans le double registre HL : 


octet 3 dans l'octet fort, soit dans H, 
octet 2 dans l'octet faible, soit dans L. 


Deuxième étape 


Nous récupérerons la partie entière dans le double registre DE. Dans cette seconde 
étape, il s'agira de remplir l'octet faible de ce double registre (soit E) avec les 8 
premiers bits de la partie entière (Voir lecture de la partie entière). 
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Schématiquement, nous devons, après traitement des étapes 2 et 3, obtenir ceci : 


OCTET 3 OCTET 2 


H 0 0 L 








6 derniers 8 premiers 
bits bits 


à \ 


D 0 1 1 0 O0 O0 00 0 1 1 1 0 0 1 E 


La récupération des 8 premiers bits n'est pas si simple, car 6 bits se trouvent sur les 
bits 2 à 7 de L, et les 2 derniers bits se trouvent sur les bits 0 et 1 de H. 


La récupération de chacun des 8 bits se fera à partir du bit O de chacun des octets, soit 
respectivement sur L, puis sur H. 


Il nous faut donc, au départ, positionner les 6 premiers bits de façon à obtenir le 
premier des 6 bits sur le bit O de L; pour cela, quelques décalages à droite suffiront. 


Le nombre de décalages à droite s'obtiendra aisément par le calcul suivant : 


nb de décalages à droite = 16 — nb de bits de la partie entière 


soit dans notre exemple : 16 — 14 = 2 décalages à droite. 


Après décalage de 2 bits vers la droite, sur L, nous obtenons le double registre HL 
suivant : 


bit — 0 bit — O 


H 1 1 0 0 O0 0 0 010 0 








2 derniers bits 6 premiers bits 


Chacun des 6 bits de L sera testé en bit O de L, et suivant le résultat, nous placerons 
un bit O0 ou 1 dans le bit 7 de E. 
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Après chaque bit traité, un décalage à droite sur L devra être fait pour amener le bit 
suivant en bit O. 


De même, un décalage à droite sur E sera également nécessaire, afin de réceptionner 
le bit suivant, sans détruire celui qui a été acquis précédemment. 


l'en sera de même pour les 2 bits restant à traiter, et qui se trouvent sur le registre H. 


Schématiquement, nous aurons 8 étapes successives et similaires. — VOIR LE 
SCHEMA DE TRAITEMENT DES 8 ETAPES : PAGE SUIVANTE + 


Après obtention de l'octet faible du registre double DE, nous devons obtenir la 
configuration suivante pour HL : 


H [0 O0 1 1 0 O0 O0 00 O0 O0 O0 O0 O0 O0 O0 L 


Troisième étape : 


Souvenez-vous du schéma de traitement de départ ; nous devons obtenir maintenant 
les 6 derniers bits, se trouvant sur H, dans l'octet fort de DE, soit en E. 


Or nous constatons, avec une certaine satisfaction, que les décalages effectués sur le 


registre H ont permis de positionner l'ensemble des 6 bits restants à partir du bit O de 
H. 


Il nous suffit donc d'effectuer le transfert du registre H, dans le registre D, pour enfin 
obtenir notre partie entière dans DE. 


Après ce dernier transfert, nous obtenons le registre DE suivant : 


Ne A Ne ER IN 





#30 #39 
Soit la valeur hexa #3039, qui correspond bien à 12345 en décimal : 


L'exemple présenté constitue le cas le plus complexe, soit pour un exposant supérieur 
à 8. 


Nous allons voir ci-après le cas le plus simple, soit pour un exposant inférieur où égal à 
8. 
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Schéma de traitement des 8 étapes 


| 


——— 
LR RE 00111001|L 





puis décalage à 
D D A GO OMAN NME gros sur BRL 








+— €———— 
(2) RE ra A 





puis décalage à 
D RP à 1 D OROON GS Q ÆORRNRE RUE 





<— #— 
ES AR RU A EU RE 





puis décalage à 
A RS A D 1 DR Te No D) EAN RRE 





<— <= 
(4) RE ES 


1ZMEMI->TD- 





puis décalage à 


D 10 00 00 0 0 0/1 0 0 1 O0 O O O|E droite sur LetE 


DC 


<— <— 
(5) ANR PQ NC OO Or ONG GE CG LFR RE 


Le puis décalage à 


DR DS on 1 O 1 7.10 0 AE AIDIRReNT ARE 








<— <— 


(6) RAR 


Ÿ J puis décalage à 
EE A À 1 10 0 1 PSI EAN SUR ER 











© 
S' 
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(7) Hntooooocpocooooo 


puis décalage à 


SE On ES OU A EE CE ES 








(8) HPtt00000pooooooot 


puis décalage à 


D [0 0 0 0 0 0 0 00 O 1 1 1 O O 1|E droite sur H 





1ZM2Mm-I->TD- 


Æ 


Voyons maintenant le cas d'un flottant qui aurait un exposant inférieur ou égal à 8. 


Dans ce cas, seul l'octet 3 est nécessaire pour le traitement. La même méthode que 
précédemment sera appliquée, mais uniquement sur 1 octet. 


Ici également, nous raisonnerons en fonction de la routine qui est présentée ci-après. 
Nous utiliserons pour ce faire le registre double BC, dans lequel nous récupérerons la 
partie entière du flottant. 

En fait, seul le registre C sera utilisé, puisque nous ne traiterons qu'un seul octet. 


Prenons un exemple pour bien fixer les idées ; soit le réel 10, qui, en flottant, donne la 
configuration suivante : 00 00 00 20 84 
0 1 2 3 4 


Première étape : 


Calcul du décalage à droite à effectuer sur le registre C. 
nb de décalage = 8 — (exposant —- #80) 


soit dans notre exemple : nb de décalages = 8 — 4 = 4 


N'oublions pas de mettre 1 dans le bit 7 du registre C, avant d'effectuer les 4 
décalages à droite sur celui-ci. 


Nous avons alors la configuration suivante pour le registre C : 


bit 7 6 5 4 3 2 1 O0 


SE LOT en 
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Après avoir effectué les 4 décalages à droite, nous obtenons : 


bit 7 6 5 4 3 2 1 0 
ER LE Er Sn 





Soit la valeur hexa #0A, qui correspond bien à 10 en décimal. 
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Routine de récupération de la partie entière d’un flottant 


Légende : 


ACQUISITION 
FLOTTANT 
A TRAITER 


DETERMINER 
EXPOSANT 






O — chiffre zéro 
® — lettre (pour « OUI») 
N — lettre (pour « NON ») 








EXPOSANT 
> 15 
? 









MODULE DE MESSAGE 
TRAITEMENT « OVERFLOW » 
POUR UN 





EXPOSANT 
> 8 ET < 16 


FIN 






DECALAGE 
A DROITE 
DE C 


Lo) 
BC DANS 
ENTIER 
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Module de traitement de récupération de la partie entière d’un flottant, 
dans le cas d’un exposant > 8 et < 16 


DECALAGE 
16 - EXPOSANT 


OCTET 2 
DANS L 
OCTET 3 
DANS H 


BIT 7 A1 
DANS H 


Légende : 





O0 — chiffre zéro 
® — lettre (pour «OUI ») 
N — lettre (pour « NON ») 









DEBUT TRONC COMMUN 
















DECALAGE 





A DROITE — — -—-1 PARTIE DECIMALE 
SUR L (Voir ETAPE 3: CALCUL DE/64) 
! 
FIN 
DECALAGE 
? 
NB BITS A 


TRAITER SUR L 
8 - DECALAGE 

CS DEBUT 

+ -—---—---- TRAITEMENT 
OCTET 2 


DECALAGE 
A DROITE 
SUR E 





DECALAGE 
A DROITE 
SUR L 








FIN 
fr TRAITEMENT 
| OCTET 2 
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(Début traitement octet 3) 













NB BITS A 
TRAITER SUR H 
= 8 —- NB BITS A 
TRAITER SUR L 


DECALAGE 
A DROITE 
DE E 


DECALAGE 
À DROITE 
SUR H 
















RECUP OCTET 
FORT DE H 
DANS D 


DE DANS 
ENTIER 





101 


102 


Hisoft GENA3.1 Assembler. 


Pass 1 errors: 


7000 
7000 


C37D 


B900 


7000 


7003 
7007 
7009 
700€ 
700€ 
7011 
7013 
7016 
7018 
701B 
7010 


7020 
7022 
7023 
7025 
7027 
7028 
7029 
702A 
702C 
702F 
7051 


7033 
7034 


CD00B9 


DD219A70 
3EDD 
D07700 
3E24 
DD7701 
3EE7 
DD7702 
3E40 
DD7703 
3E8F 
DD7704 


CBBF 
F5 
DEO8 
3016 
FI 
2F 
3C 
C608 
DD4E03 
CBF9 
CB39 


3D 
20FB 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 


110 ; 


120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
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1 
* 


RECUP PARTIE ENTIERE D'UN FLOTTANT = 
SUR 16 BITS (SANS APPEL DE VECTEUR = 
MATHEMATIQUES ) / TOUS CPC =* 


ll 
* 


ent  #7000 
org #7000 


;--* ROUT AFFICH POUR CPC 6128 *-- 
affich: equ #c37d 

;--* CONNECT ROM HAUTE *-- 

romhau: equ #b900 


L 


call romhau 


;--* CHARG FLOT DANS ZFLOT *-- 


ld ix,zflot 


ld a,#dd 
ld (ix+0),a 
id a,#24 
ld (ix+1),a 
ld a,ite7 
1d (ix+2),a 
ld a,#40 
ld (ix+3),a 
ld a,#8f 


ld (ix+4),a 

-180 SUR OCTET EXPOSANT *#-_ 
res 7,a 

SAUVE EXPOSANT *-- 
push af 
sbc a,8 
jr nc,gt8 

TRAIT SI EXP INF A 9 *x__ 
pop af 
cpl 
inc a 

À = DECAL SUR OCTET 3 *x_-_ 
add àa,8 

OCTET 3 DANS C *__ 
ld c,(ix+3) 

CORRECT BIT 7 OCTET 3 *__ 
set 7,c 

DECAL DROIT OCT 3 DANS C *-- 


decall: srl c 


dec a 
jr nz,decall 
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7036 0600 450 


ld b,0 


460 ;--* OBT ENTIER 16 BITS *-- 


7038 ED439F70 470 





ld  (entier),bc 


703C C9 480 ret 
490 ; 
7030 F1 500 gt8: pop af 
703€ F5 510 push af 
703F DE1O 520 sbc a,16 
7041 3808 530 jr c,gllé 
540 ;--* EXP PLUS GRAND QUE 15 *-- 
7043 F1 550 pop af 
7044 21A170 560 lid hl,overfl 
7047 CD7DC3 570 call affich 
704A C9 580 ret 
590 ;,--* EXP ENTRE 9 ET 16 *-- 
704B F1 600 gl1l6: pop af 
704C 2F 610 cpl 
704D 3C 620 inc a 
630 ;--* À = DECAL SUR OCTET 2 *-- 
JO4E C610 640 add a,1l6 
7050 F5 650 push af 
7051 DD219A70 660 ld ix,zflot 











670 ;--* RECUP OCTETS 2 ET 3 DANS L ET H *-- 
7055 DD6E02 680 1d 1,(ix+2) 
7058 DD6603 690 ld h,(ix+3) 
700 ;--* CORR BIT 7 OCTET 3 DANS H *-- 
705B CBFC 710 set 7,h 
705D 110000 720 ld de,0 
7060 CB3D 730 decal2: srl 1 
7062 3D 740 dec a 
7063 20FB 750 jr nz,decal2 
7065 F1 760 pop af 
7066 2F 770 cpl 
7067 3C 780 inc a 
790 ;--* NB BITS A TRAIT SUR H *-- 
7068 C608 800 add a,8 
706A F5 810 push af 
820 ;--* TRAIT OCTET 2 DE ZFLOT *-- 
7068 CB3B 830 testbl: srl e 
706D CB45 840 bit O,1 
706F 2804 850 jr z,digitl 
7071 CBFB 860 set 7,e 
7073 1802 870 jr finbl 
7075 CBBB 880 digitl: res 7,e 
7077 CB3D 890 finbl: srl 1 
7079 3D 900 dec a 
707A  20EF 910 jr  nz,testbl 
920 ;--* FIN TRAIT OCTET 2 *-- 
707C F1 930 pop af 
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7070 2F 940 cpl 
JO7E 3C 950 inc a 
960 ;--* NB BITS A TRAIT SUR DEB OCT 3 *-- 
707F  C608 970 add a,8 
7081 2811 980 jr z,obtent 
990 ;--* TRAIT OCTET 3 DE ZFLOT *-- 
7083 CB3E 1000 testbh: srl e 
7085 CB44 1010 bit O,h 
7087 2804 1020 jr z,digith 
7089 CBFB 1030 set 7,e 
708B 1802 1040 jr  finbh 
7080 CBBB 1050 digith: res 7,e 
708F CB3C 1060 finbh: srl h 
7091 3D 1070 dec a 
7092 20EF 1080 jr nz,testbh 
1090 ;--* FIN OBT PART ENTIERE DE ZFLOT *-- 
7094 54 1100 obtent: ld d,h 
7095 ED539F70 1110 1d  (entier),de 
7099 C9 1120 ret 
1130 ; 
1140 ;--* ZONES UTILISÉES *-- 
709A 1150 zflot: defs 5 : VALEUR FLOT 
709F 1160 entier: defs 2 3RECUP PART ENT 
70A1 6F766572 1170 overfl: defm "overflow" 
70A9 1180 fintxt: defs 1 
Pass 2 errors: 00 


affich C37D 
digith 7080 
finbh 708F 
gllé 704B 
overfl 70OA1l 
testbl 706B 


Table used: 


decall 7031 
digitl 7075 
finbl 7077 
gt8 7030 
romhau B900 
zflot 709A 


226 from 


Executes: 28672 


decal2 7060 
entier 709F 
fintxt 70A9 
obtent 7094 
testbh 7083 


900 
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ROUTINE DE RÉCUPÉRATION 
DE LA PARTIE DECIMALE D'UN FLOTTANT 


Nous avons vu, dans la partie «lecture de la partie décimale », que pour obtenir 3 
chiffres décimaux, avec une approximation au 9/1000°, le traitement des 6 premiers 
bits de la partie décimale du flottant suffit amplement. 


Reprenons notre exemple de départ, soit : 12345.786 
Rappel de la configuration hexadécimale : DD 24 #E7 40 8E 
0 1 2 3 4 


Dans le cas général, et suivant la valeur de l'exposant, il sera traité ou les octets 3 et 2, 
ou les octets 2 et 1. 


— cas d'un exposant < 8 : traitement des octets 3 et 2 
— cas d'un exposant > 7 et < 16: traitement des octets 2 et 1 


Dans notre exemple, l'exposant étant supérieur à 8, nous ferons un traitement sur les 
octets 2 et 1. 

Ces 2 octets seront mis dans un double registre, soit dans le registre double HL en ce 
qui concerne la routine présentée. 


La méthode de traitement de la partie décimale d'un flottant est à peu près similaire au 
traitement effectué pour la partie entière d'un flottant. 


Nous allons procéder en 3 étapes successives : 


— 1° étape : récupération des 6 bits dans le double registre DE 

— 2° étape : multiplication du résultat par 10, puis ajout de la valeur 500 pour 
améliorer l'approximation. 

— 8° étape : division du résultat par 2 à la puissance 6 pour obtenir la partie 
décimale du flottant. 


Première étape : 








OCTET 2 OCTET 1 
H 0 O0 1 1 110 O 1 O O 1 L 
fin de la 
partie et —+ 9 A B C DE schéma de 
du flottant traitement 
de la partie 
décimale 


&—— 


AS RUN RS RE NS Re 


Nous voyons que, comme pour le traitement de la partie entière, les 6 bits à récupérer 
se trouvent à cheval sur les octets H/L. 
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Le sens de la flèche de traitement sur HL étant différent du sens de traitement de la 
partie entière, nous testerons cette fois-ci chaque bit en bit 7, respectivement sur H, 
puis sur L; puis nous positionnerons un bit O ou 1 dans le bit O de E. 


Il nous faut donc positionner le premier des 2 bits sur H, en partant du bit 7 de cet octet. 
Ceci se fera par quelques décalages à gauche sur l'octet H. 


Après chaque bit traité, un décalage à gauche sur le registre H sera calculé de la 


manière suivante : ; s : 
Le nombre de décalages à gauche à effectuer sur le registre H sera 


calculé de la manière suivante : 


— si exposant — #80 < 8: nb de décalages = exposant — #80 
— si exposant — #80 > 7 et < 16: décalage = (exposant —- #80) — 8 


Remarque : le nombre de décalages doit toujours être < 8 


Dans notre exemple, le nombre de décalages sera égal à 6. Après décalage de 6 bits 
vers la gauche, sur le registre H, nous obtenons la configuration suivant de HL : 


<— ee — ——— 
de ES RARE AE GRR RE 


Avant d'effectuer le transfert dans DE, il est important de connaître le nombre de bits à 
traiter sur l'octet H. 


Nombre de bits à traiter = 8 — nombre de décalages à gauche. 


Cependant 2 cas peuvent se présenter : 
— le nb de bits à traiter est > 5 = ne traiter que l'octet H 
— le nb de bits à traiter est < 6 => traiter les octets H et L. 


Dans notre exemple, le nombre de bits à traiter sera égal à 2. Nous traiterons donc 
successivement les registres H puis L. 


Schématiquement, nous aurons 6 étapes successives et similaires : les 2 premières 
étapes effectuent des décalages à gauche sur H; les 4 dernières étapes effectuent 
des décalages à gauche sur L. 


Schéma de traitement des 6 étapes 


*— ———  — 
(1) ER A 


L 





puis décalage à 


+ 
Den Oo UE GO AO 07 05 0R LIRE GUN en STE 


<— <———— 


(2) A AE APR ES ve Te | 


L 





ZMEmMmI—->TD - 


= puis décalage à 
D RS SE A EU TRE 1e qe AIPtFeRE 





ZT 
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€———— 
(3) Anne en De ON OL UE 
MS ne er puis décalage à 
00000 07 000 00 070007 NA ONE CAEN SITE 


———— 
(4) GR Ps LE LS RE 
ER —— puis décalage à 
D\0 00000 0 00 0 0 O0 1 1 O O|E gauchesurLetE 


<— 


Se ER EU ER Te 
PT ——— puis décalage à 
D 10 00000 0 010 0 0 1 1 0 O0 1|E gauchesurLetE 


<— 


(6) H|0 0000000100 1 0 0 0 0 OIL 
a —— puis décalage à 
(000900007010 057 420 07 -0lE-Gacne Sur LÊrE 


1ZM2Mm->LD- 


Fr 


Deuxième étape : 


Multiplication du résultat précédent par 10 à la puissance (nb décimales). En ce qui 
concerne la routine présentée, nous avons opté pour 3 décimales, ce qui implique que 
le contenu du registre DE sera multiplié par 1000. 


Cette méthode permet d'obtenir un résultat < 65536, soit sur 2 octets ; toutefois nous 
ajouterons 500 au double registre DE, pour améliorer la précision du résultat final. 


Après multiplication par 1000, nous obtenons #C350 dans DE, puis, après ajout de 
500, nous obtenons #C544 dans HL, soit : 


H | 1 0 O O 1 O 110 1 O O O 1 O O L 


Troisième étape : 


Division du résultat précédent par 2 à la puissance (nb de bits traités). Dans le cadre 
de notre méthode, nous avons choisi de traiter les 6 premiers bits de la partie 
décimale, ce qui implique que nous diviserons le registre HL par 64. 
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Or, une division par une puissance de 2 n'est autre qu'une suite de décalages à droite; 
nous effectuerons donc 6 décalages sur HL. Mais voilà, nous ne savons faire des 
décalages que sur un seul registre à la fois... 


Commençons donc par effectuer les 6 décalages à droite sur L, puis voyons le schéma 
de la suite du traitement. 


LA AR Re OA AUS EE 


a 


M AE EE RE 


Nous obtenons #30D dans DE, soit 789 en décimal, soit encore la valeur attendue 
pour la partie décimale de notre nombre flottant. 


Nous voyons que la méthode à employer est identique à celle pour le traitement de la 
récupération de la partie entière (2° étape). Pour cela, il nous suffit simplement de 
fournir un décalage à faire sur L égal à 6, puis d'exécuter la partie de la routine de 
traitement de la partie entière, que nous avons intitulé. 


Tronc commun partie entière/partie décimale (voir organigramme) 


L'organigramme présenté ci-après ne retrace pas cette partie, mais y fait appel par un 
pavé « module ». 


Pour s'y reporter, voir l'organigramme présenté pour la phase de traitement de la 
partie entière. 


Conclusion sur la méthode employée 


Cette méthode permet de mieux comprendre le mécanisme qui permet de récupérer 
les parties entière et décimale. 


Il convient de préciser que d’autres méthodes de traitement existent, mais qui ne 
changent pas la philosophie du mécanisme. 


A vos moments perdus, et afin de mettre en pratique ce qui vient d’être dit tout au long 
de cette section, je vous propose une autre méthode qui pourrait être un 
aboutissement de celle que nous venons de vous présenter. 


Au lieu d'utiliser 2 doubles registres, il est possible, avec l’aide du report, de n'en 
utiliser qu'un seul. 


Prenons le cas de la récupération de la partie entière pour étayer les explications qui 
vont suivre. 
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Au lieu de tester chaque bit en bit O de H, et afin d'éviter de décaler le registre L — 
disons sans aucune contrepartie — nous pourrions effectuer à la place le traitement 
suivant : 
(1) décalage à droite de H à travers le report, 
(2) rotation à droite de L à travers le report, 
(3) répéter les opérations (1) et (2) autant de fois que l'indique le nombre de 
décalages calculé. 


Le gain de cette méthode est évident, puisqu'il permet de ne traiter qu'un seul registre 
double, et d'économiser la phase de test de chaque bit... 
Calcul de l'erreur relative obtenue avec la méthode présentée : 


Nous avons effectué quelques essais sur le flottant traité en exemple, afin de voir 
quelle pouvait être l'erreur relative absolue (en 1/1 000°) sur l'obtention de 
8 décimales ; avec un choix de traitement des 6 premiers bits de la partie décimale. 


Pour ce faire, nous ne ferons varier que l'exposant du flottant. 


Soit le tableau de résultat obtenu après essais : 


Partie Partie erreur 
Exposant décimale décimale relative 
(3 chiffres) (avec routine) absolue 


4 
0 
7 
5 
2 
5 
1 
6 
4 
L 
6 
3 
L 
5 
3 
2 





On constatera que l'erreur relative absolue est en moyenne comprise entre 3 et 4 
millièmes, ce qui reste acceptable. 


Bien entendu, il est tout à fait possible de traiter 16 bits au lieu de 6, mais le choix de la 
méthode présentée ne le permet pas facilement ; aussi, avec la deuxième proposition, 
nous devrions y arriver plus aisément. 
Il n'est cependant pas certain que pour un choix de 3 décimales, le traitement de 16 
bits nous donne de meilleurs résultats. 
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Limites de la routine présentée : 


La routine présentée ci-après ne permet de traiter que des valeurs décimales 
supérieures ou égales à 0.5. 

En effet, pour les valeurs entre O0 et 0.5 non incluses, l'exposant devient inférieur à 
#80. 

Mais vous pouvez améliorer la routine pour pallier cette lacune, puisque vous avez 
tous les éléments nécessaires... 


Par ailleurs, seuls les chiffres significatifs sont retenus pour la récupération de la partie 
décimale. 
En effet, les exemples suivants reflètent cet état de fait, sur l'exemple traité : 


— pour un exposant de #82 nous obtenons 7 au lieu de 007 
A HOG: ss rousse Ii Hesse nes 023 


Mais puisque nous savons, par hypothèse, que nous devons obtenir 3 chiffres 
décimaux, il nous suffit de rajouter le nombre voulu de 0 non significatifs dans le buffer, 
mais qui sont en fait significatifs en regard du nombre réel traité. 
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Routine de récupération de la partie décimale d’un flottant 


Légende : 


DEBUT 
DETERMINER 
EXPOSANT 


28 ET <16 


0 — chiffre zéro 
® — lettre (pour « OUI ») 
N — lettre (pour « NON ») 


MESSAGE 
« OVERFLOW » 


OCTET 2 





OCTET 3 





















DANS H DANS H 
OCTET 1 OCTET 2 
FIN DANS L DANS L 
DECALAGE = DECALAGE — 
EXPOSANT -8 EXPOSANT 
N 
ED er 
LETAPE 1 
DECALAGE 
À GAUCHE 
SUR H 
. FIN 
DECALAGE 
? 
@ 
NB BITS À 
CCR LAREUT 
8 - DECALAGE É SPRn 
NB BITS\ © 
>6 > 
? 
(a) N NB BITS À 











DECALAGE 
A GAUCHE 
SUR E 









TRAITER SUR H 
= 6 


111 


112 
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DECALAGE 
A GAUCHE 
SUR H 









NB BITS A 


DEBUT 
TRAITER SUR L=E ___ TRAITEMENT 
6 - NB BITS A SUR L 






TRAITER SUR H 


DECALAGE 
A GAUCHE 
SUR E 


BIT 7 DEL 
? 





DECALAGE 
A GAUCHE 
SUR L 

























1 
(0) 
DE = 
(DEX 1000) ne _[EraPe 

+ 500 L 

ETAPE 3 
see tn (Voir tronc 

commun 


Partie entière) 


DE DANS 
ENTIER 
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Hisoft GENA3.1 Assembler. 


Pass 1 errors: 00 


10 ;=* RECUP PARTIE DECIMALE D'UN FLOTTANT =* 
20 ;=* SUR 16 BITS (SANS APPEL DE VECTEUR =* 


30 ;=* MATHEMATIQUES)  / TOUS CPC =* 
40 ; 
7000 50 ent  #7000 
7000 60 org #7000 
70 ;--* ROUT AFFICH POUR CPC 6128 *-- 
C37D 80 affich: equ #c37d 
90 ;--* CONNECT ROM HAUTE *-- 
B900 100 romhau: equ #b900 
110 ; 
7000  CDO0B9 120 call romhau 
130 ;--* CHARG FLOT DANS ZFLOT *-- 
7003 DD21EA70 140 ld ix,zflot 
7007 3EDD 150 ld a,#dd 
7009  DD7700 160 1d (ix+0),a 
700C 3E24 170 ld a,#24 
700E DD7701 180 ld (ix+1),a 
7011 3EE7 190 id a,fe7 
7013 DD7702 200 ld (ix+2),a 
7016 3E40 210 id a,#40 
7018 D07703 220 ld (ix+3),a 
701B 3E89 230 ld a,#89 
7010 DD7704 240 ld (ix+4),a 
7020 CBEF 250 res 7,a 
7022 4F 260 ld c,a 
7023 F5 270 push af 
7024 DEO9 280 sbc a,9 
7026 300€ 290 jr  nc,gt8 
300 ;--* TRAIT SI EXP LT 8 *-- 
7028 DD7E02 310 ld a,(ix+2) 
702B 6F 320 ld l1l,a 
702C DD7E03 330 ld a,(ix+3) 
702F 67 340 ld h,a 
7030 CBFC 350 set 7,h 
7032 181B 360 jr  decal 
7034 F1 370 gt8: pop af 
7035 F5 380 push af 
7036 DE10 390 sbc a,1l6 
7038 3808 400 jr c,itlé 
410 ;--* TRAIT SI EXP GT 15 *-- 
703A F1 420 pop af 
703B 21F170 430 ld hl,overfl 
703E CD7DC3 440 call affich 
7041 C9 450 ret 


460 ;--* TRAIT SI EXP ENTRE 8 ET 15 *-- 
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7042 
7043 
7044 
7046 
7047 
704A 
704B 
704E 


704F 
7050 
7051 
7052 
7054 


7056 
7058 
7059 
705B 
705C 
705D 
705E 
7060 


7061 
7063 
7065 
7067 
7068 


7069 
706C 
706E 
7070 
7072 
7074 
7076 
7078 
707A 
707B 
707D 
707E 
707F 
7080 
7082 


7084 
7086 


F1 

F5 
DEO8 
4F 
DD7EO01 
6F 
DD7E02 
67 


F1 
79 
F5 
DE00 
2805 


CB24 
30 
20FB 
F1 
2F 
3C 
C608 
F5 


DEO6 
CB7F 
2848 
El 
F5 


110000 
CB23 
CB7C 
2804 
CBC3 
1802 
CB83 
CB24 
3D 
20EF 
F1 
2F 
3C 
C606 
2815 


CB7F 
2011 


470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
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1tlé: pop 
push 
sbc 
ld 
ld 
ld 
1d 
ld 
;--* TRAIT E 
decal: pop 
ld 
push 
sbc 
jr 
;--* DECAL A 
fdecl: sla 
dec 
jr 
fal: pop 
cpl 
inc 
add 
push 
;--* NB BITS 
sbc 
bit 
jr 
pop 
corra: push 
;5--* TRAIT A 
ld 
fdech: sla 
pit 
jr 
set 
jr 
digh: res 
fbh: sla 
dec 
jr 
pop 
cpl 
inc 
add 
jr 
;--* PAS DE 
bit 
jr 
;--* TRAIT A 


af 

af 

a,8 

c,a 
a,(ix+1) 
1,a 
a,(ix+2) 
h,a 
TAPE 1 *-- 
af 

a,C 

af 

a,0 

z,fdl 
GAUGHE SUR H *-- 
h 

a 
nz,fdecl 
af 


a 

a,8 

af 

A TRAITER SUR H *-- 
a,6 

7,a 
Z,Six 

af 

af 

BITS SUR H *- 
de,0 

e 

7,h 
z,digh 
0,e 

fbh 

0,e 

h 

a 
nz,fdech 
af 


a 

a,6 

z,fbl 

TRAIT SUR L SI À NEG *-- 
7,a 

nz,fbl 

BITS SUR L *-- 
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7088 CB23 960 fdecl: sla e 

708A CB7D 970 bit 7,1 

708C 2804 980 jr z,digl 

708E CBC3 990 set 0,e 

7090 1802 1000 jr finl 

7092 CB83 1010 digl: res 0,e 

7094 CB25 1020 finl: sla 1 

7096 3D 1030 dec a 

7097 20EF 1040 jr  nz,fdecl 
1050 ;--* TRAIT ETAPE 2 *x-- 

7099 3E03 1060 fbl: ld a,3 

709B 62 1070 ld h,d 

709C 6B 1080 ld l,e 

7090 19 1090 multi0: add hl,de 

709€ 29 1100 add hl,hl 

709F 19 1110 add h1l,de 

70A0 29 1120 add hl,hl 

70A1 54 1130 ld d,h 

70A2 5D 1140 id e,l 

70A3 30 1150 dec a 

70A4 20F7 1160 jr nz,mult10 
1170 ;--* +500 DANS HL *-- 

70A6 11FA00 1180 ld de,250 

7049 19 1190 add hl,de 

70AA 19 1200 add h1l,de 
1210 ;--* TRAIT ETAPE 3 *-- 

70AB CDB470 1220 call etap3 

JOAE C9 1230 ret 
1240 ;--* CORR A SI SUP A 6 *-- 

J7OAF F1 1250 six: pop af 

70B0 3E06 1260 ld a,6 

70B2 18B4 1270 jr corra 
1280 ; 


1290 ;--* DE = DE / 64 (ETAPE 3) *-- 
1300 ;--* 6 DECAL A DROITE SUR H *-- 


70B4  3E06 1310 etap3: Id a,6 

70B6 110000 1320 ld de,0 

70B9 CB3D 1330 decal2: srl 1 

70BB  3D 1340 dec a 

70BC  20FB 1350 jr nz,decal2 
1360 ;--* TRAIT OCTET 2 DE ZFLOT *-- 

7OBE  3E02 1370 ld a,2 

70C0 CB3B 1380 testbl: srl e 

70C2 CB45 1390 bit O,1 

70C4 2804 1400 jr z,digitl 

70C6 CBFB 1410 set 7,e 

70C8 1802 1420 jr finbl 

70OCA CBBB 1430 digitl: res 7,e 


70CC CB3D 1440 finbl: srl 1 
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7O0CE 30 1450 dec a 
7OCF  20EF 1460 jr  nz,testbl 
1470 ;--* TRAIT 6 BITS SUR H *-- 
70D1 3E06 1480 ld a,6 
70D3 CB3B 1490 testbh: srl e 
70D5 CB44 1500 bit O,h 
7007 2804 1510 jr z,digith 
70D9 CBFB 1520 set 7,e 
70DB 1802 1530 jr finbh 
70DD CBBB 1540 digith: res 7,e 
70DF  CB3C 1550 finbh: srl h 
70E1 3D 1560 dec a 
70E2 20EF 1570 jr nz,testbh 
1580 ;--* FIN OBT PART DEC DE ZFLOT *-- 
70E4 54 1590 obtent: ld d,h 
70E5 ED53EF70 1600 1d  (entier),de 
70E9 C9 1610 ret 
1620 ; 
1630 ;--* ZONES UTILISEES *-- 
7OEA 1640 zflot: defs 5 ; VALEUR FLOT 
70EF 1650 entier: defs 2 3RECUP PART DEC 
70F1 6F766572 1660 overfl: defm "overflow" 
70F9 1670 fintxt: defs 1 


Pass 2 errors: 00 


affich C370 corra 7068 decal 704F 
decal2 70B9 digh 7076 digith 70DD 
digitl 70CA digl 7092 entier 70EF 
etap3 70B4 fbh 7078 fbl 7099 
fdl 705B fdecl 7056 fdech 706C 
fdecl 7088 finbh 7ODF finbl 70CC 
fini 7094 fintxt 70F9 gt8 7034 
1tl6 7042 multl10 7090 obtent 70E4 
overfl 70F1 romhau B900 six 7OAF 
testbh 7003 testbl 70C0 zflot 7OEA 


Table used: 371 from 900 
Executes: 28672 


CHAPITRE 3 


TRAITEMENT DES LISTES 


PRÉLIMINAIRE 


Il nous a semblé intéressant de consacrer un chapitre à un sujet peu abordé jusqu'à 
présent pour l'Amstrad CPC, et qui pourtant offre des possibilités d'application fort 
utiles. 


En effet le traitement des listes fait partie intégrante de notre vie de tous les jours ; que 
ce soit en gestion familiale ou en entreprise, ou encore dans des opérations de 
classement de fiches de toute nature, ou bien encore dans le domaine du traitement 
de texte (mailing etc.). 


Certes, nous ne prétendons pas épuiser le sujet, notre but étant avant tout de 
présenter des méthodes vous permettant d'aller plus loin dans le sujet ; celles-ci vous 
donnant une approche technique non négligeable de ce qui peut se faire dans ce 
domaine très utilisé en micro-informatique. 


Programmation des routines 


Les routines présentées sont directement utilisables dans des programmes Basic de 
votre cru, par simple appel d'une instruction de type RSX, avec passage des 
paramètres demandés. 


Bien évidemment, ces routines s'intégreront parfaitement dans vos programmes 
assembleur, et pourront être appelées aisément par une instruction CALL (voir 
présentation de l'ouvrage). 
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Routines traitées dans ce chapitre 


(1) recherche d'un texte dans une zone mémoire donnée (FIND) 

(2) changement d'un texte par un autre texte (CHANGE) 

(3) tri de tableau de chaînes, en DIM ou de zones particulières 

(de rame fée nes D aimer ace sn en ou e cie 
(S}V hisser sus d'éntiers:. sr ete Reed revenant à et à 


RECHERCHE D'UNE CHAÎNE DANS UNE ZONE DONNÉE 


La routine présentée ci-après permet de rechercher un texte d'une longueur maximale 
de 255 caractères, dans une portion de mémoire que vous lui aurez indiqué. 


Le texte à chercher peut être un mot, un groupe de mots, ou tout simplement une suite 
de caractères quelconques. 


Toutefois, une entrée à vide ou une chaîne constituée d'espaces ne peut être entrée ; 
dans ce cas, la longueur du texte à chercher devient nulle, et un message d'erreur, 
apparaît à l'écran. 


Pour effectuer la recherche, vous devez indiquer l'adresse d'un texte à chercher; ce 
texte doit obligatoirement se terminer par un 0 binaire, puisque c'est par ce moyen que 
la routine détecte la fin du texte. 


Il vous faudra également indiquer à la routine les adresses de début et de fin de la 
zone ou devra s'effectuer la recherche. Pour ce faire, vous devrez fournir l'instruction 
RSX suivante : 


| FIND,adr début zone, adfr fin zone,adr texte à chercher 


Le principe de traitement de la routine est fort simple. La routine pointe sur le premier 
caractère du texte à chercher, puis progresse dans la zone donnée jusqu'à ce qu'elle 
trouve ce caractère ; puis la routine pointe sur le caractère suivant du texte à chercher, 
et regarde si celui-ci suit le précédent dans la zone donnée ; si c'est le cas la routine 
recommence ce même processus jusqu'à obtention du texte cherché, si celui-ci est en 
effet présent à cet endroit de la zone. 


Si ce n'est pas le cas, la routine se débranche pour se repointer sur le premier 
caractère du texte à chercher; puis elle continue de progresser dans la zone donnée, 
jusqu'à ce qu'elle trouve à nouveau ce premier caractère, et recommence le 
processus. Bien entendu, si la routine détecte la fin de la zone donnée, le traitement 
est terminé. 


A chaque fois que la routine détecte le premier caractère du texte dans la zone 
donnée, elle mémorise l'adresse de celui-ci, elle pourra alors afficher celle-ci 
ultérieurement, dans le cas ou cette recherche serait fructueuse ; si plusieurs textes 
existent dans la zone donnée, la routine les détectera tous. 
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Routine de recherche d’un texte donné dans une liste 





Adresse début de zone 
— — Adresse fin de zone 
Adresse texte à chercher 







Acquisition 
Paramètres 


Texte à chercher 0 


Code fin texte 






















Adresse 
début zone 


IX —— 


es Texte Texte | RAA L dans HL 
HL BC Adresse 





début texte 
dans IX 





Adresse 
fin zone 
dans BC 





INIT IX 
sur 1° 
Légende : caractère 
O — chiffre zéro 

O — lettre (pour « OUI ») 
N — lettre (pour « NON ») 





Acquisition 
1°" caractère 
dans A 








COMPARER 





Caractère - CARACTERE caractère + 
DANS A AVEC 24 
CELUI POINTE 







PAR HL? 





+ 1 DANS 
POINTEUR 
ZONE HL 


SAUVER ADRESSE 
1°" caractère 
trouvé dans 

ENTIER 





















+ 1 DANS 
PTR TEXTE 
IX 


ACQUISITION 
CAR TEXTE 
SUIVANT 
DANS A 






FIN 
CHAINE 
(A = 0)? 



















AFFICHAGE 
ADRESSE 
DEBUT TEXTE 
TROUVE 


+1 DANS 
PTR ZONE 
HL 












+ 1 DANS 
POINTEUR 
ZONE HL 






COMPARE 
CAR DANS A 
AVEC CELUI 
POINTE PAR 
HL? 
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Hisoft GENA3.1 Assembler. 


Pass 1 errors: 00 


10 ;=* ROUTINE FIND POUR TOUS CPC *= 


6F AO 20 ent  #6fa0 
6FAO 30 org #6fa0 

4O ;--* TRAITEMENT RSX *-- 
BCDI1 50 rsx: equ #bcdl 
6FAO  O1AA6F 60 ld bc,ext 
6FA3 21C86F 70 ld hl,space 
6FA6  CDDIRC 80 call rsx 
6FA9 C9 90 ret 
6FPRA C36F 100 ext: defw nom 


110 ;--* RECUPERATION PARAMETRES *-- 
120 ;--* HL=DEBZ / BC=FINZ / DE=DEBTXT *-- 


6FAC DD6605 130 1d h,(ix+5) 
6FAF  DD6E04 140 ld 1,(ix+4) 
6FB2 DD4603 150 1d b,(ix+3) 
6FB5  DD4E02 160 ld c,(ix+2) 
6FB8 DD5601 170 1d d,(ix+1) 
6FBB  DD5E00 180 id e,(ix+0) 
6FBE FEO3 190 cp 3 
6FCO CO 200 ret nz 
6FC1 183D 210 jr  rout 

220 ; 
6FC3 46494E 230 nom: defm "FIN" 
éFCé C4 240 defb "D'+480 
6FC7 O0 250 defb 0 
6FC8 260 space: defs 4 

270 ; 

280 ;--* DEBUT ROUTINE 'FIND' *-- 
7000 290 org #7000 
B900 300 romhau: equ #b900 
C37D 310 affich: equ #c37d 
7000 ED539870 320 rout: ld  (adrtxt),de 
7004  CDO0B9 330 call romhau 

340 ;--* TEST SI LONG TEXTE NUL *-- 
7007 EB 350 ex  de,hl 
7008 3E00 360 ld a,0 
700A BE 370 cp (hl) 
700B 2822 380 jr 2z,err 
700D EB 390 ex  de,hl 


400 ;--* ADR TXT DANS IX *-- 
700E DD2A9870 410 autre: Id. ix,(adrtxt) 

420 ;--* CAR TEXTE DANS A *-- 
7012 DD7E00 430 1d a,(ix+0) 

440 ;--* TEST A AVEC CAR ZONE *-- 
7015 BE 450 1cz: cp  (hl) 
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7016 202D 460 jr  nz,difl 
470 ;--* SAVE ADR 1ER CAR TROUVE *-- 
7018 229670 480 1d  (entier),hl 
490 ;--* CAR TXT SUIV DANS A *-- 
701B DD23 500 Ich: inc ix 
7010 DD7E00 510 ld a,(ix+0) 
520 ;--* TEST FIN TEXTE *-- 
7020 FEO0 530 cp O0 
7022 2812 540 jr z,trouve 
7024  CD4B70 550 call finzon 
7027 2805 560 jr z,ntrouv 
7029 BE 570 cp (hl) 
702A 28EF 580 jr z,lch 
702C 1811 590 jr rech 
702E C9 600 ntrouv: ret 
610 ;--* MESSAGE ERREUR SI LONG NUL *-- 
702F 21A170 620 err: id hl,merr 
7032 CD7DC3 630 call affich 
7035 C9 640 ret 


650 ;--* AFF ADR TEXTE TROUVE *-- 
660 ;--* SAVE REGISTRES *-- 


7036 E5 670 trouve: push h1 
7037 C5 680 push bc 
7058 D5 690 push de 
7039 CD5670 700 call affasc 
710 ;--* RECUP REGISTRES *-- 
703C D1 720 pop de 
703D CI 730 pop bc 
703E El 740 pop hl 
703F CD4B70 750 rech: call finzon 
7042 20CA 760 jr nz,autre 
7044 C9 770 ret 
7045  CD4B70 780 difl: call finzon 
7048 20CB 790 jr  nz,lcz 
7O4A C9 800 ret 
810 ;--* +] DANS PTR ZONE ET TEST SI FIN *-- 
820 ;--* PTR ZONE DANS DE *-- 
704B 23 830 finzon: inc hl 
704C E5 840 push h1 
704D D1 850 pop de 
860 ;--* SAVE PTR ZONE *-- 
JO4E ES 870 push h1 
880 ;--* FIN ZONE DANS HL *-- 
7O4F C5 890 push bc 
7050 El 900 pop hl 
910 ;--* CALCUL SI FIN DE ZONE *-- 
7051 A7 920 and a 
7052 ED52 930 sbc hl,de 


940 ;--* RECUP PTR ZONE *-- 
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7054 El 950 pop hl 
7055 C9 960 ret 

970 ;--* AFF DECIMALE ADR TEXTE TROUVE *-- 
7056 ED4B9670 980 affasc: ]1d bc,(entier) 


705A DD219A70 990 ld ix,chaine 
705E 111027 1000 ld  de,10000 
7061 CD8370 1010 call ascii 
7064 11E803 1020 id  de,1000 
7067 CD8370 1030 call ascii 
706A 116400 1040 ld de,100 
7060 CD8370 1050 call ascii 
7070 110A00 1060 ld de,10 
7073 CD8370 1070 call ascii 
7076 110100 1080 ld de,l 
7079 CD8370 1090 call ascii 
707C 219A70 1100 ld h1,chaine 
707F CD7DC3 1110 call affich 
7082 C9 1120 ret 
7083 3E2F 1130 ascii: Id a,#2f 
7085 60 1140 id h,b 
7086 69 1150 ld 1,c 
7087 3C 1160 compte: inc a 
7088 ED52 1170 sbc hl,de 
708A  30FB 1180 jr nc,compte 
708C ED5A 1190 adc hl,de 
708€ 44 1200 ld b,h 
708F  4D 1210 ld c,l 
7090 DD7700 1220 ld (ix+0),a 
7093 DD23 1230 inc ix 
7095 C9 1240 ret 

1250 ;--* ZONES UTÉLISEES PAR LA ROUTINE *-- 
7096 1260 entier: defs 2 
7098 1270 adrtxt: defs 2 

1280 ;--* BUFFER ET MESSAGE *-- 
709A 1290 chaine: defs 5 
709F  OAO0 1300 fchain: defb 10,0 ; CODE LIGNE SUIV 


TOAL 74657874 310 merr:  defm "texte entre incorrect / arret" 
7OBE  OAOO 1320 fmerr: defb 10,0 ;CODE LIGNE SUIV 
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Pass 2 errors: O0 


adrtxt 7098 affasc 7056 affich C370 
ascii 7083 autre 700E chaine 709A 
compte 7087 difl 7045 entier 7096 
err 702F ext 6FAA  fchain 709F 
finzon 704B fmerr 70BE Ich 701B 
1cz 7015 merr 70OAl nom 6FC3 
ntrouv 702E rech 703F romhau B900 
rout 7000 rsx BCDI space 6FC8 
trouve 7036 


Table used: 308 from 900 
Executes: 28576 


ROUTINE DE REMPLACEMENT D'UN TEXTE PAR UN AUTRE 


La routine présentée ci-après permet d'effectuer le remplacement d'un texte d'une 
zone donnée, par un autre texte. Ce nouveau texte peut être soit plus petit, soit plus 
long que l'ancien texte de la zone donnée. De même que pour le “FIND”, le texte 
ancien ou nouveau peut être un mot, un groupe de mots, ou tout simplement une suite 
de caractères quelconques. 


La longueur du nouveau texte est théoriquement fixée à 255; mais il est fortement 
recommandé de faire en sorte que la différence de longueur entre nouveau texte et 
ancien texte ne dépasse pas les 30 caractères ; en effet, si le texte à changer est très 
fréquent dans la zone donnée, il pourrait en résulter un léger effaçage au-dessus de la 
zone donnée. 


Nous verrons un peu plus loin la raison de ce petit problème. 


lci aussi, toute entrée vide ou suite d'espaces sera interprétée comme un texte ayant 
une longueur nulle, et provoquera de ce fait un message d'erreur suivi de l'arrêt du 
traitement. 


Pour effectuer le remplacement d'un ou plusieurs textes identiques par un nouveau 
texte, il vous faudra passer un certain nombre de paramètres à la routine “CHANGE”. 


(1) adresse de début de la zone donnée 

(2) adresse de fin de la zone donnée 

(3) adresse du premier caractère du texte à chercher (ou ANCIEN) 
(4) adresse du premier caractère du NOUVEAU texte 


Pour ce faire, vous devrez fournir l'instruction RSX suivante : 





| CHANGE,adr déb zone,adr fin zone,adr txt ancien,adr txt nouveau 
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La routine doit être capable de détecter les changements de texte qui sont 
intempestifs, dans le cas ou le texte nouveau est plus long que le texte ancien. Pour 
cela, il est impératif d'initialiser la zone donnée, avec des 0 binaires, avant réception 
des informations à traiter par la routine de remplacement de texte. 


C'est grâce à ces 0 binaires que la routine sera alertée en cas de trop-plein de la zone 
donnée. 


Pour ce faire, et avant changement de texte, la routine analyse les 30 derniers 
caractères de la zone donnée ; si ceux-ci sont toujours à O0, alors le changement de 
texte s'effectuera, sinon un message d'erreur sera provoqué, suivi de l'arrêt du 
traitement. En effet, dans le cas d'un nouveau texte plus long que l'ancien, la routine 
effectue un transfert du texte vers le haut de la zone donnée, afin de libérer la place 
nécessaire pour insérer le nouveau texte. 


Nous pouvons donc, maintenant, imaginer facilement ce qui se passera si un nouveau 
texte a plus de 30 caractères que l'ancien, dans le cas d'un changement intempestif de 
texte. 


Imaginons par exemple le changement d'un texte de 10 caractères par un texte de 200 
caractères. 


Si la portion de zone à 0 binaire est assez grande, tout va bien se passer durant les 
premiers changements ; puis au bout du Nième changement, nous allons approcher la 
zone limite des 30 derniers caractères ; au moment où le prochain changement devra 
se faire, la routine va analyser les 30 derniers caractères et décrétera qu'il n'y a pas de 
problème, puis elle effectuera le changement. Mais voilà, 190 caractères supplémen- 
taires vont accroître la zone donnée, et bien évidemment détruire 190 octets 
au-dessus cette zone donnée. 


Vous comprenez maintenant pourquoi il est fort recommandé de faire en sorte que le 
nouveau texte n'excède pas l'ancien texte de plus de 30 caractères. 

Oui mais, me direz-vous, il suffit d'augmenter la « zone d'alerte » qui se trouve en bout 
de la zone donnée; bien entendu, ceci est tout à fait possible, et vous pourriez par 
exemple la mettre au maximum, soit à 255 zéros binaire. 

Ceci dépendra essentiellement de l'utilisation que vous ferez de cette routine. 


Si cela vous tente, il suffit pour y parvenir de modifier l'instruction LD E, 30 en 1220, en 
remplaçant la valeur 30 par toute autre valeur inférieure ou égale à 255. 


En ce qui concerne les textes ancien et nouveau, vous devez, tout comme la routine 
“FIND”, mettre un O binaire en fin de texte. 


Mais voyons maintenant comment fonctionne cette routine. Il est bien évident que la 
phase de recherche correspond au traitement effectué par la routine “FIND”. 
Mais une fois notre texte trouvé, 2 cas peuvent se présenter : 


(1) la longueur du nouveau texte est plus petite que la longueur de l'ancien texte. 


(2) la longueur du nouveau texte est plus grande que la longueur de l’ancien texte (ou 
égale). 


Afin d'éviter de se perdre dans un long discours, et surtout pour se rapprocher le plus 
possible de la routine présentée, nous allons vous présenter un schéma de 
fonctionnement de la routine. Pour ce faire, un certain nombre d'hypothèses est 
indispensable. 


TRAITEMENT DES LISTES 125 


Variables utilisées : 


ENTIER : pointe sur le premier caractère de l'ancien texte 


FINZ  : adresse de fin de la zone donnée 

LTA : longueur de l’ancien texte 

LTN : longueur du nouveau texte 

D : différence entre LTN et LTA (D = LTN — LTA) 

L : longueur restante entre la fin de l'ancien texte et FINZ 

Li : longueur de la zone à transférer pour libérer la place pour le nouveau texte. 


Schéma de fonctionnement : 


<— FINZ nn 1° 
L 





ENTIER — 


(LTN > = LTA) (LTN < LTA) 


La routine commence par effectuer un “FIND” du texte à changer, puis regarde si la 
zone d'alerte est à O binaire. 


Si la zone d'alerte ne signale pas de “CHANGE” intempestifs, elle commence par 
calculer D = LTN — LTA. 


Puis, que nous soyons dans le cas D négatif, ou D positif ou nul, il va falloir effectuer le 
transfert du reste de la zone, qui est au-dessus de l'ancien texte, après le dernier 
caractère du nouveau texte; ceci se fera par une instruction de transfert de bloc. 
Mais le transfert se fera différemment selon que nous sommes dans l'un ou l’autre cas. 


Si D est négatif, nous sommes dans le cas ou la longueur du texte nouveau est plus 
petite que celle du texte ancien. 

Dans ce cas (voir schéma de fonctionnement), le transfert se fera de la manière 
suivante : 


SOURCE = ENTIER + LTA 


DESTINATION = ENTIER + LTN 
COMPTEUR = FINZ — ENTIER — LTA 


Puis nous devons effectuer le transfert de bas en haut, soit de 1 à n (Voir schéma de 
fonctionnement); l'instruction assembleur utilisée sera donc un LDIR. 


126 RSX ET ROUTINES ASSEMBLEUR SUR AMSTRAD CPC 


Si D est positif, nous sommes dans le cas où la longueur du texte nouveau est plus 
grande que celle du texte ancien (ou égale). 

Dans ce cas (voir schéma de fonctionnement), le transfert se fera de la manière 
suivante : 


SOURCE = ENTIER + LTA + (L — D) = FINZ — D 
DESTINATION = FINZ 
COMPTEUR =L-D+1 


Puis nous devons effectuer le transfert de haut en bas, soit de 1 à n (voir schéma de 
fonctionnement) ; l'instruction assembleur utilisée sera donc un LDDR. 


La place étant alors libérée, la routine va pouvoir implanter le nouveau texte ; ce qui se 
fera par un transfert de bloc du nouveau texte à l'emplacement de l'ancien texte. 


La routine va ensuite regarder si la fin de zone est atteinte. Si ce n'est pas fini, elle va 
procéder à une nouvelle recherche, et recommencer le processus de traitement 
exposé ci-dessus. 
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Routine effectuant le changement d’un texte par un autre, dans une liste 


Début 
Adresse début de zone 
Acquisition pere Adresse fin de zone 
Paramètres Adresse texte ancien 


Adresse texte nouveau 


(Recherche 
du texte) FIN 


(trouve) 


Dares a | LTA : longueur texte ancien 

LTN LTN : longueur texte nouveau 
(rt nl 
Partie Arrêt si fin de zone 
« FIND » PARTIE « FIND » | 
| 


| 

routine | COMMUN 
| 
| 









TEST SI 
30 DERNIERS 
CARACTERES AO 
(Test si change) 
? 


N 


MESSAGE 


A) « FIN DE ZONE 
ATTEINT » 


CALCUL : 
D = LTN — LTA 


(LTNLTA) <O (sito (LTNZLTA) 


CALCUL : CALCUL : 
SOURCE = SOURCE = 
ENTIER + LTA ENTIER + LTA 













+ Li 





CALCUL : 


DESTINATION = DESTINATION 
ENTIER + LTN = FINZ 
COMPTEUR = CALCUL : 
Li COMPTEUR - 
Li=L-D+1 






Exécution 
transfert 
(LDIR) 


Exécution 
transfert 


(LDDR) 





SOURCE = 
Adresse 
nouveau texte 


DESTINATION = 
ENTIER 


COMPTEUR = 
LTN 


Puis transfert 
(LDIR) 





Légende : 


0— chiffre zéro 
À — lettre (pour « OUI») 
N— lettre (pour « NON ») 
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Pass l errors: 00 


10 ;-* ROUTINE CHANGE POUR TOUS CPC *= 


6F AO 20 ent #6fa0 
6FAO 30 org #6fa0 

4O ;--* TRAITEMENT RSX *-- 
BCO1 50 rsx: equ #bcdi 
6FAO O1AA6F 60 ld bc,ext 
6FA3 21E46F 70 ld h1l,space 
6FA6  CDD1BC 80 call rsx 
6FA9 C9 90 ret 
6FAA  DD6F 100 ext: defw nom 


110 ;--* RECUPERATION PARAMETRES *-- 
120 ;--* DEBUT DE ZONE *-- 


6FAC DD6607 130 ld h,(ix+7) 
6FAF  DD6E06 140 ld 1,(ix+6) 

150 ;--* FIN DE ZONE *-- 
6FB2 DD4605 160 ld b,(ix+5) 
6FB5 DD4E04 170 ld c,(ix+4) 
6FB8 ED433771 180 1d  (finz),bc 

190 ;--* ADR TEXTE ANCIEN *-- 
6FBC DD5603 200 ld d,(ix+3) 
6FBF  DD5E02 210 ld e,(ix+2) 
6FC2 ED531471 220 ld (adrtxt),de 

230 ;*-- ADR TEXTE NOUVEAU *-- 
6FCé DD5601 240 ld d,(ix+1) 
6FC9 DD5E00 250 ld e,(ix+0) 
6FCC ED533171 260 1d  (adrchg),de 
6FDO DD2A1471 270 ld ix,(adrtxt) 
6FD4 FD2A3171 280 id iy,(adrchg) 
6FD8 FEO4 290 cp 4 
6FDA CO 300 ret nz 
6FDB 1823 310 jr rout 

320 ; 
6FDD 4348414E 330 nom: defm ‘’CHANG" 
éFE2 C5 340 defb "E'+780 
6FE3 O0 350 defb 0 
6FE4 360 space: defs 4 

370 ; 

380 ;--* DEBUT ROUTINE "CHANGE! *-- 
7000 390 org #7000 
B900 400 romhau: equ #b900 

410 ;--* ROUTINE AFFICH. POUR CPC 6128 *-- 
C37D 420 affich: equ #c37d 

430 ; 
7000 CD00B9 440 rout: call romhau 


450 ;--* COMPTEUR CAR. À O *-- 
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7003 


7006 


7009 


700B 


7000 





7O0E 


7010 


7012 


7016 
7017 


7019 


701B 


1F 
22 


Oo oO 


027 
029 
O2A 
O2C 
O2E 


NN NN IN IN HN 





| 


032 
7033 





7035 
7037 


703B 


703F 


7042 
7043 


7045 


7048 


110000 


DD7E00 


FEOO 


2805 


13 


DD23 


18F4 


ED533571 


7B 
D600 


2841 


DD2A1471 


110000 
FD7E00 
FEO0 
2805 

13 

FD23 
18F4 
ED533371 


7B 
D600 


2825 
FD2A3171 


DD2A1471 


DD7E00 


BE 
2048 





22127] 


DD23 


460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 











ld de,0 

;--* CAR. TEXTE ANC. DANS A *-- 

lctl: Id a,(ix+0) 

;--* EST-CE FIN DE TEXTE 7? *-- 
cp", © 

5--* SI OUI FIN CALCUL LONG. *-- 
jr z,ftxtl 

;3--* +1 DANS COMPTEUR CAR. *#-- 
inc de 

;5--* +1 DANS POINTEUR TEXTE *-- 
inc ix 

;--* AUTRE CARACTERE *-- 
jr Ilctl 

3--* LONG TEXTE ANC DANS LTA *-- 

ftxtl: Id (lta),de 


;--* TEST SI LTA NUL *-- 
ld _a,e 
sub O0 
;--* SI NUL MESSAGE ERREUR *-- 
jr  z,lgaz 
;--* REINIT IX AVEC ADR TEXTE *-- 
id ix,(adrtxt) 
;--* CALCUL LONG. TEXTE NOUV. *-- 
;3--* TRAIT. SIMIL. CI-DESSUS *-- 
ld de,0 
lct2: ld a,(iy+0) 
cp O 
jr z,ftxt2 
inc de 
inc iy 
jr lct2 





ftxt2: Id  (ltn),de 
5--* TEST SI LTN NU *-- 
id a,e 
sub O 
;--* SI NUL MESSAGE ERREUR *-- 
jr z,lgaz 
ld iy,(adrchg) 
;--* ADR TXT DANS IX *-- 
autre: Id ix,(adrtxt) 
,--* CAR TEXTE DANS A *-- 
ld a,(ix+0) 
;--* TEST A AVEC CAR ZONE *-- 
1cz: cp (hl) 
jr nz,difl 
;--* SAVE ADR 1ER CAR TROUVE *-- 
1d  (entier),hl 
;--* CAR TXT SUIV DANS A *-- 
1ch: inc ix 
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130 

704A 
704D 
704F 
7051 
7054 
7056 
7057 
7059 
705B 


705C 
705F 


7062 


7063 


7064 


7067 


706A 


706B 


706C 
706D 


706E 


7070 


7072 


7073 


7075 


7076 


7077 


7079 


707A 


707B 


707C 


707D 


DD7E00 
FEO0 
281A 
CD9370 
2805 
BE 
28EF 
182C 
C9 


214671 
CD7DC3 


C9 
El 
211671 
CD7DC3 
C9 


ES 


C5 
El 


1E1E 


3E00 


BE 


20EE 


28 


10 


20F9 


El 


ES 


C5 


D5 


DDES 


950 

960 

970 

980 

990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
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1d a,(ix+0) 


5--* TEST FIN TEXTE *-- 


cp O0 

jr z,trouve 
call finzon 
jr z,ntrouv 


cp (hl) 
Jr CZ, ich 
jr rech 


ntrouv: ret 
5--* AFF, MESS. LONG. TEXTE NUL *-- 


1gaz: 


ld hl,mlgaz 
call affich 


5--* FIN DE TRAITEMENT *-- 


ret 


;--* RECUP, HL *-- 
mfchg: pop hl 
5--* AFF, MESS. FIN DE ZONE *-- 


ld hl,txter 
call affich 
ret 


5=-* SAUVE HL *-- 
trouve: push h1l 
;--* FINZ DANS HL *-- 


push bc 
pop hl 


;--* INIT COMPTEUR A 30 *-- 


ld _e,30 


;--* O DANS A *-- 


id a,0 


;--* COMP. À ET CAR. POINTE PAR HL *-- 
testz: cp  (hl) 


* 


SI DIFF. ALORS FIN DE ZONE *-- 
jr nz,mfchg 

-1 DANS POINTEUR ZONE *-- 
dec hl 

-1 DANS COMPTEUR *-- 
dec e 

REITERER SI COMPT, DIFF. DE O *-- 
jr  nz,testz 

RECUP HL #-- 
pop hl 

SAUVE REGISTRES *-- 
push hl 
push bc 
push de 

CHANGER TEXTE ANC AVEC NOUV *-- 
push ix 
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707F  CDSE70 1430 call change 
1440 ;--* RECUP REGISTRES *-- 
7082 DDEI 1450 pop ix 
7084 DI 1460 pop de 
7085 CI 1470 pop bc 
7086 EI 1480 pop hl 


1490 ;--* RECH. AUTRE TEXTE *-- 
7087 CD9370 1500 rech: call finzon 


708A 20AF 1510 jr nz,autre 
708C C9 1520 ret 

708D CD9370 1530 difl: call finzon 
7090 20B0 1540 jr nz,lcz 
7092 C9 1550 ret 


1560 ;--* +1 DANS PTR ZONE ET TEST SI FIN *-- 
1570 ;--* PTR ZONE DANS DE *-- 


7093 23 1580 finzon: inc hl 
7094 E5 1590 push hl 
7095 D1 1600 pop de 

1610 ;--* SAVE PTR ZONE *-- 
7096 E5 1620 push hl 

1630 ;--* FIN ZONE DANS HL *-- 
7097 C5 1640 push bc 
7098 El 1650 pop hl 

1660 ;--* CALCUL SI FIN DE ZONE *-- 
7099 A7 1670 and a 
709A ED52 1680 sbc hl,de 

1690 ;--* RECUP PTR ZONE *-- 
709C El 1700 pop hl 
7090 C9 1710 ret 


1720 ;--* AFF. MESS. CHANGE *-- 
709€ 213D71 1730 change: ld hl,messl 


70A1 CD7DC3 1740 call affich 
1750 ;--* LTN DANS HL *-- 
70A4 2A3371 1760 ld hl,(itn) 
1770 ;--* LTA DANS DE *-- 
7017 ED5B3571 1780 l1d de,(lta) 
1790 ;--* D = LTN - LTA *-- 
70AB A7 1800 and a 
7OAC ED52 1810 sbc hl,de 
1820 ;--* SAUVE D *-- 
JOAE ES 1830 push h1l 
1840 ;--* FINZ DANS HL *-- 
7OAF C5 1850 push bc 
70B0 El 1860 pop hl 
1870 ;--* POINTEUR TEXTE TROUVE DANS DE *-- 
70B1 ED5B1271 1880 ld de,(entier) 
1890 ;--* CALCUL DE L DANS HL *-- 
70B5 A7 1900 and a 


70B6  ED52 1910 sbc hl,de 
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70B8 ED5B3571 1920 ld de,(lta) 

1930 ;--* L = FINZ - ENTIER - LTA *-- 
70BC ED52 1940 sbc hl,de 

1950 ;--* SAUVE L *-- 
70BE E5 1960 push hl 

1970 ;--* POINTEUR TEXTE TROUVE DANS HL *-- 
70BF 2A1271 1980 id hl,(entier) 

1990 ;--* LTA DANS DE *-- 
70C2 ED5B3571 2000 ld de,(lta) 

2010 ;--* CALCUL SOURCE POUR TRANSFERT *-- 
70C6 A7 2020 and a 
70C7 EDSA 2030 adc hl,de 

2040 ;--* SOURCE = ENTIER + LTA *-- 
70C9 223971 2050 1d (source),hl 

2060 ;--* POINTEUR TEXTE TROUVE DAND HL *-- 
7OCC 2A1271 2070 ld hl,(entier) 

2080 ;--* LTN DANS DE *-- 
70CF ED5B3371 2090 ld de,(itn) 

2100 ;--* DEST = ENTIER + LTN *-- 
7003 A7 2110 and a 
70D4 EDS5A 2120 adc hl,de 
70D6 223B71 2130 ld (dest),h1 

2140 ;--* RECUP L DANS HL *-- 
7009 El 2150 pop hl 

2160 ;--* RECUP D DANS DE *-- 
70DA DI 2170 pop de 

2180 ;--* TEST SIGNE DE D *-- 
70DB CB7A 2190 bit 7,d 

2200 ;--* ALLER À DNEG SI NEGATIF *-- 
70DD 2016 2210 jr  nz,dneg 

2220 ;--* L1 = L - D (DANS HL) *-- 
70ODF A7 2230 AND A 
70E0 ED52 2240 SBC HL,DE 

2250 ;--* L1 DANS DE *-- 
70E2 ES 2260 push h1 
70E3 D1 2270 pop de 

2280 ;--* SAUVE LI *-- 
70E4 E5 2290 push h1 

2300 ;--* RECUP SOURCE DANS HL *-- 
70E5 2A3971 2310 1d h1,(source) 

2320 ;--* SOURCE = ENTIER + LTA + L1 *-- 
70E8 A7 2330 and a 
70E9 EDSA 2340 adc hl,de 

2350 ;--* DEST = FINZ *-- 
70EB ED5B3771 2360 ld de,(finz) 

2370 ;--* RECUP L1 DANS BC *-- 
J7OEF Cl 2380 pop bc 


2390 ;--* +1 DANS L1 *-- 
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70F0 03 2400 inc bc 

2410 ;--* TRANSFERT BLOC POUR D POSITIF *-- 
70F1 EDB8 2420 ldor 
70F3 1805 2430 jr  chgtxt 


2440 ;--* APPEL PARM POUR TRANSFERT *-- 
70F5 CDO871 2450 dneg: call csd 

2460 ;--* TRANSFERT BLOC POUR D NEGATIF *-- 
70F8 EDBO 2470 ldir 

2480 ;--* METTRE NOUVEAU TEXTE *-- 

2490 ;--* LTN DANS BC (COMPTEUR) *-- 
7OFA ED4B3371 2500 chgtxt: 1d bc,(ltn) 

2510 ;--* POINTEUR NOUV TEXTE DANS HL *-- 


7OFE 2A3171 2520 ld hl,(adrchg) 

2530 ;--* POINTEUR TEXTE ANC DANS DE *-- 
7101 ED5B1271 2540 ld de,(entier) 

2550 ;--* TRANSFERT NOUVEAU TEXTE *-- 
7105 EDB0O 2560 ldir 
7107 C9 2570 ret 

2580 ;--* RECUP LONGUEUR DANS BC *-- 
7108 E5 2590 csd: push h1 
7109 CI 2600 pop bc 

2610 ;--* SOURCE DANS HL *-- 
710A 2A3971 2620 1d h1l,(source) 

2630 ;--* DEST DANS DE *-- 
710D EDS5B3B71 2640 ld de,(dest) 
7111 C9 2650 ret 

2660 ; 

2670 ;--* ZONES UTILISEES PAR LA ROUTINE *-- 

2680 ; 

2690 ;--* POINTEUR TEXTE TROUVE *-- 
7112 2700 entier: defs 2 

2710 ;--* POINTEUR TEXTE ANCIEN *-- 
7114 2720 adrtxt: defs 2 


2730 ;--* MESSAGE CHANGE IMPOSSIBLE *-- 
7116 66696E20 2740 txter: defm "fin de zone texte atteint" 


712F  OAOO 2750 saut:  defb 10,0 

2760 ;--* POINTEUR TEXTE NOUVEAU *-- 
713] 2770 adrchg: defs 2 

2780 ;--* LONG. TEXTE NOUVEAU *-- 
7133 2790 Itn: defs 2 

2800 ;--* LONG. TEXTE ANCIEN *-- 
7135 2810 Ita: defs 2 

2820 ;--* POINTEUR FIN DE ZONE *-- 
7137 2830 finz: defs 2 

2840 ;--* SOURCE POUR TRANSFERT BLOC *-- 
7139 2850 source: defs 2 

2860 ;--* DEST POUR TRANSFERT BLOC *-- 
7138 2870 dest: defs 2 


2880 ;--* MESSAGE CHANGE EFFECTUE *-- 
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713D 6368616 2890 messl: defm "change " 
7144  OAO0 2900 sautl: defb 10,0 
2910 ;--* MESSAGE ERREUR ENTREE / ARRET *-- 
7146 6C6F6E67 2920 mlgaz: defm "longueur texte(s) nul - fin trait." 
7168 OAO0 2930 saut2: defb 10,0 


Pass 2 errors: 00 


adrchg 7131 adrtxt 7114 affich C37D 
autre 703B change 709E chgtxt 70FA 
csd 7108 dest 713B difl  708D 
dneg  70F5 entier 7112 ext 6FAA 
finz 7137 finzon 7093 ftxtl 7012 
ftxt2 702E Ich 7048 Ilctl 7006 
lct2 7022 lez 7042 Ilgaz  705C 
lta 7135 tn 7133 messl 713D 
mfchg 7063 mlgaz 7146 nom 6FDD 
ntrouv 705B rech 7087 romhau B900 
rout 7000 rsx BCO1 saut 712F 
sautl 7144 saut2 7168 source 7139 
space 6FE4 testz 7072 trouve 706B 
txter 7116 


Table used: 478 from 900 
Executes: 28576 
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10 REM === DEMONSTRATION FQUTIMNE CHANGE" === 
2Q MODE 2 

3Q PRINT'init zone à zero" 

40 FOR i=8&9@@@ TO &9A@G:POKE i,@:NEXT 
50 PRINT'chargement texte":PRINT 

60 j=8&9000 

7Q READ a$ 

8Q IF a$="fin" THEN 160 

9Q I1=LEN(a$) 

10@ FOR i=1 TO ! 

110 c$=MID$S(a$,i,1):c=-ASC(cS#) 

12Q PRINT c$;:POKE j+i-1,c 

13@ NEXT 

149 PRINT:j=;j+1 

159 GOTO 7@ 

169 LOCATE 25,25:PRINT'TAPER UNE TOUCHE 
POUR CONTINUER" 

17@ CALL &BB@6:CLS 

189 INPUT "texte à chercher:";a$ 
19 INPUT "texte a changer:";b$ 

209 I1=LEN(a$):at=8&8000 

21@ FOR i=1 TO 1! 

229 c$=-MID$(a$,i,1):c=ASC(cS) 

23Q POKE at+i-1,c 

24Q NEXT 

250 POKE at+i-1,@ 

269 I=LEN(b$S):at=-88100 

27© FOR i=1 TO 1 

289 c$=MID$(b$,i,1):c=ASC(c$) 

2938 POKE at+i-1,c 

309 NEXT 

31© POKE at+i-1,Q@ 

329 1ICHANGE, 89000 ,8&9A0OQ,R8000,8&8100 
330 j=8&9000@:a$="":PRINT 

349 v=PEEK( j) 

350 IF v=Q THEN 400 

360 c$=CHKS(Vv):a$-a$+tc$f:cpt=cpt+l:j=j+1 
37@ IF cpt < 8© THEN 340 

380 PRINT a$:cpt-0:a$-"" 

399 GOTO 340 

40@ IF cpt < 8@ THEN PRINT a$ 


41Q PRINT 

42Q INPUT ‘autre change (o/n):";r$:r#$=LO 
WERS(r$) 

430 IF r$="o" THEN cpt=@:GOTO 160 

44@ END 


45Q DATA "une programmation en langage m 
achine apporte dans la majorite des cas 
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46Q DATA "une puissance d’execution que 
nul autre langage ne permet. " 

47Q DATA "tous les autres langages neces 
sitent une ou plusieurs traductions " 
48Q DATA "avant d'etre directement execu 
table par le microprocesseur. " 

49@ DATA le seul langage disponible imm 
ediatement lors du branchement de votre 
5@Q@ DATA "amstrad cpc est un langage bas 
ic resident. " 

51Q DATA "fin" 
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ROUTINES DE TRI DE TABLEAUX 


Qui n'a pas été confronté au problème crucial du tri en mémoire! Ce problème est 
souvent difficile à résoudre au niveau du BASIC. En effet, ou le tri réalisé prend peu de 
place mémoire mais s'avère lent, ou au contraire il peut être rapide mais très 
gourmand en place mémoire, car nécessitant plusieurs tableaux de travail en 
mémoire. 


Nous sommes donc irrémédiablement contraints de nous tourner vers le langage 
machine, qui nous offre la rapidité de calcul que ne possède pas le BASIC. 
C'est ce que nous avons fait dans cette troisième section de ce chapitre sur le 
traitement des listes. 

Nous avons pensé que le tri de tableaux définis en BASIC, par l'instruction DIM, 
s'avérait limitatif. 

Aussi avons-nous réalisé des routines permettant de réaliser le tri de tableaux créés 
directement par l'utilisateur, c'est-à-dire des tableaux qui ne sont pas définis par une 
instruction DIM. 

Toutefois les tableaux ainsi créés auront une structure identique aux tableaux définis 
en DIM, de façon que les routines présentées tournent différemment sur les deux 
types de tableaux. 


Mais avant de nous lancer dans le traitement des routines, il nous faut avant tout 
savoir comment sont organisés les tableaux en mémoire de l'Amstrad CPC. 


L'Amstrad nous offre trois sortes de tableaux : 


— les tableaux de chaînes (exemple : T$(10)) 
— les tableaux de réels (exemples : T(10)) 
— les tableaux d'entiers (exemple : t%(10)) 


Nous allons examiner la structure d'un tableau en général, mais les routines 
présentées ne traiteront que les tableaux à une dimension : en effet, le tri d'un tableau 
à plusieurs dimensions n'a souvent pas de sens. 

Si le cas se présentait, il serait très facile de le ramener à un ensemble de plusieurs 
tableaux à une dimension. 


Mais avant d'étudier la structure d'un tableau en mémoire, il faut connaître son 
emplacement en mémoire. 

L'Amstrad CPC est généreux sur ce point, puisqu'il nous offre des pointeurs de début 
et de fin de tableaux. 


Pointeurs de tableaux : 





POINTEURS CPC 464 CPC 664 & 6128 








début de tableaux #AE87 — #AE88 #AE6A — #AE6B 





fin de tableaux #AE89 — #AE8A #AE6C — #AE6D 
== 
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Structure d'un tableau : 


ELEMENTS DU TABLEAU 


valeur variable 
valeur à zéro 


NB OCTETS 


1 
1 



































nom du tableau (en ASCII) long. nom 
type de variable du tableau 1 
taille du tableau 2 
nombre d'indices du tableau 1 
nombre de postes des N indices N fois 2 
si entier — X fois 2 
X éléments du tableau si réel — X fois 5 





si chaîne — X fois 3 


Précisions concernant les éléments du tableau : 


Nom du tableau : 


Le code ASCII du dernier caractère du nom est ajouté à la valeur #80 pour que le 
système sache reconnaître la fin du nom. 


Type de variable : 


Variable entière (en %): 1 
Variable chaîne (en 5) : 2 
Variable réelle : 4 


Taille du tableau : 


C'est la longueur entre le nombre d'indice et le dernier élément du tableau, les deux 
étant compris dans la longueur déterminée. C'est aussi le résultat du calcul suivant : 





taille = (nb postes indice 1 x... x nb postes indice N) + (nb indices x 2) + 1 








Eléments du tableau : 


Nous avons vu que les éléments pouvaient avoir une longueur différente selon que le 
type de variable indique de l'entier, du réel, ou un type chaîne. 


Dans le cas d'entier ou de réel, il s'agit de la valeur elle-même qui est présente dans le 
tableau, donc sur 2 ou 5 octets. 
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Par contre, dans le cas de variables chaîne, nous avons 3 octets, dont la signification 
est la suivante : 


PREMIER OCTET : nombre de caractères de la chaîne 
2° et 3° OCTETS : adresse d'implantation de la chaîne en mémoire RAM de l'Amstrad 
CPC. 


L'implantation d'une chaîne peut se situer n'importe où dans le programme BASIC : 


— en DATA (exemple : DATA wxyz) 
— dans une variable chaîne (exemple : A$ = «wxyz ») 
— en remplissant un tableau (exemple : T$(4) = « wxyz ») 


De toute manière, vous n'avez pas à vous soucier de ce problème puisque c'est le 
système qui le gère. 


Nous avons vu dans les pointeurs qu'il existait un pointeur de début de tableau ; en fait, 
ce pointeur est peu intéressant dans notre cas, car il indique l'adresse de début du 
PREMIER tableau. Or, si nous devons trier un tableau qui se situe en Nième position 
dans une instruction DIM, il nous faudra effectuer de savants calculs pour déterminer 
l'adresse de début du tableau voulu. 


Cependant nous disposons, en BASIC, d'une possibilité très intéressante, l'arobase 
En effet, si vous faites par exemple PRINT @X, vous obtiendrez l'adresse 
d'implantation de la variable X. 

En ce qui concerne les tableaux, nous pouvons appliquer le même principe, en faisant 
par exemple PRINT @T%(0), qui nous donnera l'adresse du premier élément du 
tableau TX. 

Aussi nous utiliserons ce principe pour passer l'adresse de début du premier élément à 
la routine, par l'intermédiaire d'une RSX, ou d'une instruction Basic CALL (voir 
DEMO). 


Exemple de structure d'un tableau : 


Soit le tableau entier à 4 dimensions : ABCD%(2,3,4,5) indices — | J K L 
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po premier octet du tableau 


(0) deuxième ............ 





premier caractère ASCII du tableau (en hexa) 


2 deuxième: :2:.1.uts nt tt rent et 
3 troisième: 542454 baie nanas 
3 + 80 dernier caractère ASCII (valeur hexa + #80) 





02 type de variable : entier 





octet faible de la taille du tableau 
2 OCtet Ont: seu, De NN an ee 











O4 nombre d'indices du tableau 


octet faible du nb de postes de l'indice L 
octet fort 





octet faible du nb de postes de l'indice K 
octet fort 


octet faible du nb de postes de l'indice J 


octet faible du nb de postes de l'indice | 
octet fort 





CONTENU DU TABLEAU : valeurs entières 





Structure des valeurs d'un tableau : 


Reprenons notre exemple T%(2,3,4,5) 
indices — | JKL 
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Ce schéma demande quelques explications : 


Pour une valeur de L = 0 (par exemple), nous avons K qui prend les valeurs 0 à 4, et 
dans cet ordre; nous dirons que L est hiérarchiquement supérieur à K. 


Puis pour toute valeur de L, il en sera de même ; ce qui implique que nous aurons une 
même structure pour chaque valeur de L. 


De même, pour chaque valeur de K, nous avons des groupes de J, qui vont de la 
valeur 0 à la valeur 3; ici également, K englobe hiérarchiquement l'ensemble des J. 
Puis de la même façon, chaque J se trouve à son tour supérieur hiérarchiquement à I. 


Nous allons en définitive trouver, dans le tableau, un certain nombre de groupes de I, 
allant de 0 à 2. 

Pour être plus précis, nous en trouverons 3 pour chaque J, soit 12 pour chaque K, soit 
60 pour chaque L. 


Deux remarques importantes sont donc à noter au passage : 


(1) tout indice part de 0 (ex. : pour un indice égal à 2 nous avons 3 postes qui vont de 
O à 2). 


(2) l'indice le plus haut dans la hiérarchie est le dernier, 
l'indice le plus bas dans la hiérarchie est le premier. 


La progression des postes, en mémoire, se fait donc toujours du poste 0 au poste N. 


ROUTINE DE TRI DE TABLEAU DE CHAÎNES 


Méthode de tri utilisée 


La méthode de tri qui sera utilisée pour les trois routines de tri sera le « TRI BULLE », 
en optant pour un classement croissant des éléments du tableau à trier. 

Cette méthode de tri est la plus simple à mettre en œuvre, et ne nécessite aucune 
place mémoire, en dehors du tableau à trier. 


Le principe en est très simple, puisqu'il s'agit de comparer les éléments 2 par 2, en 
partant du début du tableau, et de mettre le plus grand des 2 dans l'élément supérieur, 
par inversion de ces 2 éléments ; arrivé à la fin du tableau, le dernier élément doit donc 
être le plus grand du tableau. 

Au deuxième passage, nous effectuons un tri du premier à l'avant dernier élément, en 
utilisant le même processus de tri. 

Puis nous continuons ainsi jusqu'à ce que le tri des éléments se limite à 1 seul 
élément; le tableau est alors trié. 


Explications sur la routine de tri 


Nous avons vu, dans la structure des tableaux de chaînes, que chaque élément était 
en fait constitué d'une longueur et d'une adresse de chaîne. 

Le tri de ces chaînes s'effectuera donc, en réalité, sur les éléments eux-mêmes. 
Pour ce faire, nous allons comparer la première chaîne pointée par l'adresse du 
premier élément à la deuxième chaîne pointée par l'adresse du deuxième élément ; il 
sera tenu compte des longueurs fournies par ces deux éléments. 
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Si la deuxième chaîne est plus grande que la première, il nous faudra alors effectuer 
une inversion des longueurs et adresses de ces deux éléments. 


Le processus sera le même jusqu'à la fin, et le tableau ainsi trié offrira en fait un 
classement sur les longueurs et adresses. La comparaison de deux chaînes se fera 
caractère par caractère. Si une égalité se produit, nous irons alors comparer les deux 
caractères suivants, dans le cas ou les deux chaînes ne sont pas terminées ; sinon 
nous irons regarder si la première chaîne est terminée, auquel cas nous n'effectuerons 
pas d'inversion. 


Si par contre c'est la deuxième qui est terminée, nous irons effectuer l'inversion des 2 
éléments en cours. 


Si les deux caractères comparés sont différents, il nous faudra alors savoir lequel des 
deux est le plus grand. 

S'il s'agit du caractère de la première chaîne, nous devrons alors effectuer l'inversion 
des 2 éléments en cours. 

Par contre, s'il s'agit du caractère de la deuxième chaîne, nous n'effectuerons alors 
aucune inversion. 


Démonstration de la routine de tri 


Deux courts programmes Basic vous montreront les possibilités offertes par cette 
routine de tri. 


Le premier programme effectue le tri d'un tableau défini en DIM. 


Le deuxième programme, quant à lui, effectue le tri d'un tableau qui a été créé de 
toutes pièces. 

Les chaînes à trier sont mises à un emplacement mémoire choisi par le créateur du 
tableau. 


Pour constituer l'ensemble des éléments du tableau, il nous faut repérer chaque 
adresse de début de chaîne, ainsi que sa longueur. Vous remarquerez également, 
dans le programme BASIC, qu'il nous faut connaître l'adresse du premier élément du 
tableau. 


Par ailleurs, il ne faut pas oublier de mettre les 4 données qui précèdent le premier 
élément, soit le type de variable, la taille du tableau (qui sera mise à O, car inutilisée 
dans la routine), le nombre d'indices (soit 1), et le nombre de postes de l'indice. 


Une possibilité intéressante offerte par la routine est le choix du nombre des premiers 
éléments à trier. 
Il vous sera ainsi possible de ne trier qu'une partie de votre tableau, mais à partir du 
premier élément. 


L'instruction RSX correspondante est la suivante : 


ITRIC, adresse du 1* élément, [nombre d'éléments à trier] 


Si vous n'indiquez pas le nombre d'élément à trier, ce sera alors tout le tableau qui 
sera trié. 
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Routine de tri de tableau de chaînes 


Légende : 


0 — chiffre zéro 
D — lettre (pour « OUI ») 


N — lettre (pour « NON ») 


Acquérir 
Paramètres 
IX = PTR 

SUR INDICE 


Y=1 
(Compteur 
boucle) 









adresse 1° 












IX = PTR sur Pointe sur 
élément — — —- 1° élément 
suivant au départ 

calcul Longueur 






longueurs 
chaînes 
1et2 





Longueur 











SAUVER 
IX pour TRAIT 
ULTERIEUR 







HL = adresse 
chaîne 2 


IX = adresse 
chaîne 1 


COMPARE 
CAR POINTE 
PAR IX À CAR 
POINTE PAR 
HL? 
















IX et HL 


— — — 4 élément du tableau. 
[nb postes à trier] 


chaine 1 — L1 


chaine 2 -» L2 
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Routine de tri de tableau de chaînes (suite) 










COMPARE 
CAR POINTE 
PAR IX A 
CAR POINTE 
PAR HL? 













ch1<ch2 





ch2<ch1 


Echange de 
adresse 
chaîne 1 et 
adresse chaîne 2 


Echange de 
longueur 
chaîne 1 et 
longueur 
chaine 2 











RECUP 
IX (Pointe Sur 
Elément 1) 


N=l"+1 


TESTE 

SI 1Y> 

NB POSTES -— 1 
? 







TESTE SI 
NB POSTES 
<27? 


Réinit IX 
— Pointeur 
sur 1° 


élément 
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Hisoft GENA3.1 Assembler. 


Pass 1 errors: O0 


10 ;=* ROUTINE TRI DE TABLEAU DE CHAINE *= 


6F AO 20 ent #6fa0 
6FAO 30 org #6fa0 
4O ;--* TRAITEMENT RSX *-- 
BCDI 50 rsx: equ #bcdl 
6FAO OIAA6EF 60 ld bc,ext 
6FA3 21D36F 70 ld hl,space 
6FA6  CDDIBC 80 call rsx 
é6FA9 C9 90 ret 
6FAA CE6F 100 ext: defw nom 
110 ;--* RECUPERATION PARAMETRES #-- 
120 ;--* HL-deb tabl / BC=nb elem a trier *-- 
6FAC FEOI 130 Cp 1 
6FAE 2805 140 jr z,un 
6FBO FEO2 150 Cp 2 
6FB2  280C 160 jr z,deux 
6FB4 C9 170 ret 
180 ;--* TRAIT 1 PARAMETRE *-- 
6FB5 010000 190 un: ld bc,0 
6FB8 DD6601 200 1d h,(ix+l) 
6FBB  DD6E00 210 ld 1,(ix+0) 
6FBE 1840 220 jr rout 
230 ;--* TRAIT 2 PARAMETRES *-- 
6FCO DD6603 240 deux: ld h,(ix+3) 
6FC3 DD6E02 250 ld 1,(ix+2) 
6FC6 DD4601 260 ld b,(ix+l) 
6FC9 DD4E00 270 ld c,(ix+0) 
6FCC 1832 280 jr  rout 
290 ; 
6FCE 545249 300 nom: defm "TRI" 
6FD1 C3 310 defb "C'"+4#80 
6FD2 O0 320 defb 0 
6FD3 330 space: defs 4 
340 ; 
350 ;--* DEBUT ROUTINE 'TRIC' *-- 
7000 360 org #7/7000 
B900 370 romhau: equ #b900 
C37D 380 affich: equ #c37d 


7000  CDO0B9 390 rout: call romhau 

400 ;--* PTR HL SUR NB POSTES *-- 
7003 2B 410 dec h1l 
7004 2B 420 dec hl 

430 ;--* SAUVE PTR HL DANS IX *-- 
7005 ES 440 push hl 
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7006 DDEI 450 pop jix 
460 ;--* TEST SI NB POSTES NU *-- 
7008 OB 470 dec bc 
7009 CB78 480 bit 7,b 
700B 2808 490 jr z,post 
500 ;--* SI NUL TRIER TOUS *-- 
700D DD4601 510 1d b,(ix+1) 
7010 DD4E00 520 ld c,(ix+0) 
7013 181A 530 jr postok 
540 ;--* RECTIF NB POSTES *-- 
7015 O3 559 post: inc bc 
7016 CB78 560 bit 7,b 
570 ;--* SI NEGATIF ARRET *-- 
7018 2815 580 jr z,postok 
7O1A 215771 590 ld hl,messz 
701D CD7DC3 600 call affich 
7020 C9 610 ret 
7021 210871 620 merrl: Id hl,messl 
7024 CD7DC3 630 call affich 
7027 C9 640 ret 
7028 212F71 650 merr2: Ild hl,mess2 
702B CD7DC3 660 call affich 
702E C9 670 ret 
680 ;--* PTR HL SUR NB INDICES *-- 
702F  2B 690 postok: dec h1l 
700 ;--* TEST SI PLUS D'UN INDICE *-- 
7030 3EOI 710 ld a,1l 
7032 BE 720 cp  (hl) 
730 ;--* SI ERREUR ARRET *-- 
7033 20EC 740 jr  nz,merrl 
750 ;--* PTR HL SUR TYPE VAR *-- 
7035 2B 760 dec hl 
7036 2B 770 dec h1l 
7037 2B 780 dec hl 
790 ;--* TEST SI TYPE VAR = CHAINE *-- 
7038 3E02 800 ld a,2 
703A BE 810 cp (hl) 
820 ;--* SI NON CHAINE ARRET *-- 
703B 20EB 830 jr nz,merr2 
840 ;--* PTR IX SUR NB INDICES *-- 
7030 DD2B 850 dec ix 
860 ;--* SAUVE PTR IX ET NB POSTES *-- 
703F DD220671 870 ld  (ptrorg),ix 
7043 ED43FE70 880 id (nbpost),bc 


890 ;--* CPT K = 1 *-- 
7047 FD210100 900 suiv: Id iy,l 

910 ;--* PTR IX SUR PROCH. ELEM. *-- 
704B DD23 920 bcl: inc ix 
7040 DD23 930 inc ix 
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704F  DD23 940 
950 

7051 DD7E03 960 
7054 320471 970 
980 

7057 DD7E00 990 
705A 320271 1000 
1010 

7050 DDES 1020 
1030 

705F  DD6E04 1040 
7062 DD6605 1050 
1060 

7065 DD5EOI 1070 
7068 DD5602 1080 


706B D5 1090 
706C DDE1 1100 
1110 
706E  DD7E00 1120 
1130 
7071 BE 1140 
1150 
7072 2809 1160 
1170 
7074 SE 1180 
7075 A7 1190 
7076 93 1200 
7077 CB7F 1210 
1220 
7079 205D 1230 
1240 
707B 182B 1250 
707D ED5B0271 1260 
7081 1B 1270 
7082 ED530271 1280 
7086 CB7A 1290 
1300 
7088 204E 1310 
708A ED5B0471 1320 
708E 1B 1330 
708F ED530471 1340 
7093 CB7A 1350 
1360 
7095 2011 1370 
1380 
7097 DD23 1390 
7099 23 1400 
1410 


inc ix 
;--* SAUVE LONG ELEMENT 1 *-- 
ld a,(ix+3) 
ld (12),a 
;3--* SAUVE LONG ELEMENT 2 *-- 
ld a,(ix+0) 
ld (11),a 
;5--* SAUVE PTR IX *-- 
push ix 
;--* ADR CHAINE 2 DANS HL 
ld 1,(ix+4) 
ld h,(ix+5) 
;--* ADR CHAINE 1 DANS IX *-- 
ld e,(ix+l) 
ld d,(ix+2) 
push de 
pop jix 
;3--* CAR CHAINE 1 POINTE PAR IX *-- 
tstcar: 1d a,(ix+0) 
3--* COMPARE A ET CAR CHAINE 2 *-- 
cp  (hl) 
;--* SI EGAL ALLER À MEMCAR *-- 
jr z,memcar 
;--* COMPARE CAR CH1 A CAR CH2 *-- 
id _e,(hl) 
and a 
sub e 
bit 7,a 
;5--* ALLER À CILTC2 SI INFERIEUR *-- 
jr nz,clltc2 
;--# SINON ALLER A CIGTC2 *-- 


* 


jr cigtc2 
memcar: ld de,(ll) 
dec de 
ld (11),de 
bit 7,d 
5--* ALLER A CILTC2 SI FIN CHI *-- 
jr  nz,clitc2 
id de,(12) 
dec de 
ld (12),de 
bit 7,d 
;--* ALLER A CIGTC2 SI FIN CH2 *-- 
jr nz,cigtc2 
;--* INCR PTR CHI ET CH2 *-- 


inc ix 
inc hl 
5--* ALLER A TSTCAR SI MEME CAR *-- 
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709A 18D2 1420 jr tstcar 
1450 ;--* RECUP K ET VA TRAIT COUPLE SUIV *-- 
709C FDE] 1440 pbcl: pop iy 
709E 18AB 1450 jr bel 
1460 ;--* RECUP K ET PTR IX LER ELEM *-- 
70A0 FDEI 1470 psuiv: pop iy 
70A2 DD2A0671 1480 id ix,(ptrorg) 
1490 ;--* CONT ISOLER ELEM SUPERIEUR *-- 
70A6  189F 1500 jr  suiv 
1510 ;--* TRAIT SI CAR CH1 SUP A CAR CH2 *-— 
70A8 DDE] 1520 clgtc2: pop ix 
70OAA  DDES 1530 push ix 
1540 ;--* ECHANGE ADR CHI ET ADR CH2 *-- 
70AC DD5602 1550 ld d,(ix+2) 
70OAF  DD5EO1 1560 1d e,(ix+1) 
70B2 ED530071 1570 ld (temp) ,de 
70B6 DD5605 1580 1d d,(ix+5) 
70B9 DD5E04 1590 1d e,(ix+4) 
70BC DD7202 1600 ld (ix+2),d 
70BF DD7301 1610 ld (ix+1),e 
70C2 ED5B0O071 1620 ld de,(temp) 
70C6 DD7205 1630 ld (ix+5),d 
70C9 DD7304 1640 ld (ix+4),e 
1650 ;--* ECHANGE LONG CHI ET LONG CH2 *-- 
70CC DD7E00 1660 ld a,(ix+0) 
70CF  DD5E03 1670 id e,(ix+3) 
70D2 DD7300 1680 ld (ix+0),e 
70D5 DD7703 1690 1d (ix+3),a 
1700 ;--* RECUP IX POUR TRAIT C1 LT C2 *-- 
70D8 DDEI 1710 clltc2: pop ix 
1720 ;--* RECUP K DANS DE *-- 
70DA FDES 1730 push iy 
70DC DI 1740 pop de 
1750 ;--*X K = K + 1] *-- 
7000 13 1760 inc de 
1770 ;--* SAUVE K *-- 
700E D5 1780 push de 
1790 ;--* RECUP NB POSTES (J) *-- 
700F  2AFE70 1800 ld h1,(nbpost) 
1810 ;--* J = J - 1] *-- 
70E2 2B 1820 dec hl 
70E3 A7 1830 and a 
70E4 ED52 1840 sbc hl,de 
70E6 CB7C 1850 bit 7,h 
1860 ;--* ALLER A PBCL SI K SUP OÙ EGAL A J-] x 
70E8 28B2 1870 jr z,pbcl 


1880 ;--* SINON J=J-] *-- 
70EA 2AFE70 1890 id hl1, (nbpost) 
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70ED 2B 1900 dec hl 
JOEE 22FE70 1910 ld (nbpost),h1l 
70F1 110200 1920 ld de,2 
70F4 A7 1930 and a 
70F5 ED52 1940 sbc hl,de 
70F7 CB7C 1950 bit 7,h 
1960 ;--* SI J SUP OÙ EGAL A 2 ALLER A PSUIV *-- 
70F9 28A5 1970 jr z,psuiv 
1980 ;--* REEQUILIBRE PILE *-- 
70FB FDEL 1990 pop iy 
2000 ;--* FIN SI J INFERIEUR A 2 #-- 
70FD C9 2010 ret 
2020 ; 
2030 ;--* ZONES UTILISEES POUR DONNEES *-- 
7OFE 2040 nbpost: defs 2 ;NB POSTES TABL 
7100 2050 temp: defs 2 ; ZONE D'ECHANGE 
7102 2060 11: defs 2 ;LG CHAINE 1 
7104 2070 12: defs 2 ;LG CHAINE 2 
7106 2080 ptrorg: defs 2 ;PTR IER ELEM 


2090 ;--* MESSAGE ERREUR AVANT ARRET #-- 
7108 6C652074 2100 messl: defm "le tableau a plus d'un indice / arret" 


712D OAO0 2110 sautl: defb 10,0 

712F 6C652074 2120 mess2: defm "le tableau n'est pas en ‘'nom$' / arret" 
7155 OAOO 2130 saut2: defb 10,0 

7157 6E622065 2140 mess3: defm "nb elements a trier incorrect / arret" 
717C OAO0O 2150 saut3: defb 10,0 


Pass 2 errors: 00 


affich C37D bel 704B cigtc2 70A8 
clltc2 7008 deux  6FC0O ext 6FAA 
11 7102 12 7104 memcar 707D 
merrl 7021 merr2 7028 messl 7108 
mess2 712F mess3 7157 nbpost 70FE 
nom 6FCE pbcl 709C post 7015 
postok 702F psuiv 70A0 ptrorg 7106 
romhau B900 rout 7000 rsx BCD] 
sautl 712D saut2 7155 saut3 717C 
space 6FD3 suiv 7047 temp 7100 
tstcar 706E un 6FB5 
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Démo de tri d’un tableau de chaîne T$ (20) 


UCH 
100 
11Q 
129 
130 
140 
150 
160 
17 
180 
19Q 


MODE 2 

DIM t$(2@) 

CLS 

FOR i=@ TO 2@ 

READ a$ 

PRINT a$ 

t$(i)=a$ 

NEXT 

LOCATE 25,25S:PRINT"'APPUYEZ SUR UNE TO 
E POUR CONTINUER'":CALL &BB@6 

PRINT 

ax=àt$(@) 

ITRIC,a% 

PRINT 

FOR i=@ TO 2@ 

PRINT t$(i) 

NEXT 

PRINT 

END 

DATA salut,pomme,disque,crayon,papie 


r,arbre,travail,arret,double,arc,arme,ar 


mee 


sSalutation,travailler,abcde,abcd,abc 


sa,zut,zoo,pole 


Démo de tri d’une zone d'adresses de chaîne 


10 


105 
11Q 
129 
130 
14Q 
37, 

150 
at. 


FOR i=1i TO 4 
READ v:POKE &14F+i,v 
NEXT 
FOR i=1i TO 6 
READ a$:1=LEN(a$) 
FOR j=1 TO 1] 
c$=MID$(a$,j,1):c=ASC(c$) 
POKE 299+ptr+j,c 
NEXT 
ptr=ptr+l 
NEXT 
PRINT'"'fin chargement" 
a=342 
ITRIC,a 
END 
DATA 2,0,0,1,6,0,4,82c,1.5,8981, 1,7,8 
1,6,83f,1,3,8&46,1,6,8&4a, 1 
DATA pole.,pomme.,abricot.,disque.,r 
,orange 
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ROUTINE DE TRI DE TABLEAU D’ENTIERS 


Les éléments du tableau à trier sont directement contenus dans le tableau (valeurs 
entières signées sur 2 octets). 

Le processus de tri est le même que pour le tri de tableau de chaînes, mais la 
procédure de comparaison des éléments s'en trouve simplifiée. 

En effet, si le premier entier est plus grand que le second, nous effectuons alors une 
inversion des deux éléments, sinon rien. 


Démonstration de la routine de tri 


Deux programmes BASIC sont également présentés pour cette routine de tri de 
tableau d'entiers. 

Le premier programme trie un tableau défini en DIM, alors que le deuxième tri des 
valeurs qui ont été mises à un endroit de la mémoire RAM. 

Ici également, il ne faut pas oublier de mettre les 4 données précédant le premier 
entier. 


ROUTINE DE TRI DE TABLEAU DE RÉELS 


La routine de tri de tableau de réels est similaire à la routine de tri de tableau d'entiers, 
à la différence qu'ici il s’agit de valeurs flottantes (soit sur 5 octets). 

Il est à noter que la comparaison est effectuée par une routine située en RAM. 
La version présentée tourne pour le CPC 6128 ; aussi pour la faire tourner sur le CPC 
464, il vous faudra changer ce vecteur, en le remplaçant par #BD6A dans l'instruction 
source N° 390. 


Mesure du temps d’exécution des routines de tri présentées 


Pour vous montrer la puissance de tri assembleur, même quand il s'agit d'un « TRI 
BULLE », nous vous présentons un graphe des temps constatés en fonction du 
nombre de postes (ou articles) à trier en ordre croissant (voir GRAPHE DE TRI en fin 
de chapitre). Le test a été réalisé pour la routine de tri de tableau de chaînes ; nous 
avons constaté que, quelle que soit la taille de l'article à trier (1 à 255), et pour un 
même nombre d'articles, le temps de tri était irrémédiablement constant. 
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Routines de tri de tableau de nombres (réels et entiers) 













adresse 1° 
——— 41 élément du tableau 
[nb postes à trier] 


ACQUERIR 
PARAMETRES 


W=1 
(Compteur 
boucle) 

















IX = PTR 
sur élément 
suivant 


1°" élément 


IX pointe sur 
au départ 





TESTE Sl 


NB1<NB2 
? 





NB1<NB2 NB1>NB2 










NB REEL si 
Et _ — J Routine de tri de réel 
1 et 2 NB ENTIER si 


Routine de tri d'entier 


N=I“Y+1 





IY>= 
NB POSTES — 1 
? 







TESTE SI 
NB POSTES 
<27? 
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Hisoft GENA3.1 Assembler. 


Pass 1 errors: 00 


10 ;=* ROUTINE TRI DE TABLEAU D'ENTIER *= 


6F AO 20 ent #6fa0 
6F AO 30 org #6fa0 

4O ;--* TRAITEMENT RSX *-- 
BCD1 50 rsx: equ #bcdl 
6FAO O1AA6F 60 ld bc,ext 
6FA3 21D36F 70 ld hl,space 
6éFA6  CDDIBC 80 call rsx 
6FA9 C9 90 ret 
6FAA CE6F 100 ext: defw nom 


* 


110 ;--* RECUPERATION PARAMETRES *-- 


120 ;--* HL=deb tabl / BC-nb elem a trier *-- 
6éFAC FEOI 130 CP l 
6FAE 2805 140 jr z,un 
6FBO FEO2 150 cp. ‘2 
6FB2 280C 160 jr z,deux 
6FB4 C9 170 ret 
180 ;--* TRAIT 1 PARAMETRE *-- 
6FB5 010000 190 un: id bc,0 
6FB8 DD6601 200 ld h,(ix+1) 
6FBB  DD6E00 210 ld 1,(ix+0) 
6FBE 1840 220 jr rout 


230 ;--* TRAIT 2 PARAMETRES *-- 
6FCO DD6603 240 deux: ld h,(ix+3) 


6FC3 DD6E02 250 ld 1,(ix+2) 
6FC6é DD4601 260 ld b,(ix+l) 
6FC9 DD4E00 270 ld c,(ix+0) 
6FCC 1832 280 jr  rout 

290 ; 
6FCE 545249 300 nom: defm "TRI" 
6FD1 C5 310 defb "E'"+/#80 
6FD2 O0 320 defb O 
6FD3 330 space: defs 4 

340 ; 

350 ;--* DEBUT ROUTINE 'TRIE' *-- 
7000 360 org #7/7000 
B900 370 romhau: equ #b900 
C37D 380 affich: equ #c37d 


7000 CDO0B9 390 rout: call romhau 

400 ;--* PTR HL SUR NB POSTES *-- 
7003 2B 410 dec hl 
7004 2B 420 dec hl 

430 ;--* SAUVE PTR HL DANS IX *-- 
7005 E5 440 push h1l 
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7006 


7008 
7009 
700B 


7000 
7010 
7013 


7015 
7016 


7018 
701A 
7010 
7020 
7021 
7024 
7027 
7028 
702B 
702E 


702F 


7030 
7032 


7033 
7035 
7036 


7037 


7038 
703A 


7038 


703D 
7041 


7045 


7049 
704B 


704D 


DDE] 


0B 
CB78 
2808 


DD4601 
DD4E00 
181A 


03 
CB78 


2815 
21F770 
CD7DC3 
C9 
21A870 
CD7DC3 
C9 
21CF70 
CD7DC3 
C9 


2B 


3EO1 
BE 


20EC 
2B 
2B 


2B 


3E01 
BE 


20EB 


DD22A670 
ED43A470 


FD210100 


DD23 
DD23 


DD6601 


450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 


sex 
Û 


+ 
? 


Sn me À 
L 


post: 


__* 
? 


merril 
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pop ix 
TEST SI NB POSTES NUL *-- 
dec bc 
bit 7,b 
jr z,post 
SI NUL TRIER TOUS *-- 
1d b,(ix+1) 
ld c,(ix+0) 
jr postok 
RECTIF NB POSTES *-- 
inc bc 
bit 7,b 
SI NEGATIF ARRET *-- 
jr z,postok 
1d hl,mess3 
call affich 
ret 
: Id hl,messl 
call affich 
ret 


merr2: Id hl,mess2 


* 
, 


call affich 
ret 
PTR HL SUR NB INDICES *-- 


postok: dec hl 


QE ] 
, 


TEST SI PLUS D'UN INDICE *-- 
id a,1l 
cp (hl) 
SI ERREUR ARRET *-- 
jr nz,merrl 
PTR HL SUR TYPE VAR *-- 
dec hl 
dec hl 
dec h1l 
TEST SI TYPE VAR = ENTIER *-- 
ld a,1l 
cp (hl) 
SI NON CHAINE ARRET *-- 
jr nz,merr2 
SAUVE PTR IX ET NB POSTES *-- 
ld (ptrorg),ix 
ld (nbpost),bc 
CPT K = 1 *-- 
ld iy,l 
PTR IX SUR PROCH. ELEM. *-- 
inc ix 
inc ix 
ENTIER 1 DANS HL *-- 
ld h,(ix+1) 
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7050 DD6E00 940 ld 1,(ix+0) 
950 ;--* ENTIER 2 DANS DE *-- 
7053 DD5603 960 ld d,(ix+3) 
7056 DD5E02 970 ld e,(ix+2) 
980 ;--* SAUVE ENTIER 1 ET 2 *-- 

7059 E5 990 push h1l 
705A D5 1000 push de 
705B A7 1010 and a 
705C ED52 1020 sbc hl,de 
70O5E CB7C 1030 bit 7,h 

1040 ;--* ALLER A EILTE2 SI El INF A E2 *-- 
7060 201C 1050 jr nz,ellte2 

1060 ;--* RECUP ENTIER 1 ET 2 #-- 
7062 D1 1070 pop de 
7063 El 1080 pop hl 

1090 ;--* ECHANGE ENTIER 1 ET 2 *-- 
7064 DD7201 1100 ld (ix+1),d 
7067 DD7300 1110 ld (ix+0),e 
706A  DD7403 1120 ld (ix+3),h 
706D DD7502 1130 ld (ix+2),1 
7070 180€ 1140 jr  fintst 

1150 ;--* RECUP K ET VA A BCL *-- 
7072 FDEI 1160 pbcl: pop iy 
7074 1803 1170 jr bc1l 

1180 ;--* RECUP K ET VA A SUIV *-- 
7076 FDEI 1190 psuiv: pop jiy 
7078 DD2AA670 1200 ld ix,(ptrorg) 
707C 18C7 1210 jr suiv 

1220 ;--* ENT 1 INF A ENT 2 *-- 
707E DI 1230 ellte2: pop de 
707F El 1240 pop hl 

1250 ;--* RECUP K DANS DE *-- 
7080 FDE5 1260 fintst: push iy 
7082 DI1 1270 pop de 

1280 ;--* K = K + 1 *-- 
7083 13 1290 inc de 

1300 ;--* SAUVE K *-- 
7084 D5 1310 push de 

1320 ;--* RECUP NB POSTES (J) *-- 
7085 2AA470 1330 ld h1,(nbpost) 

1340 ;--* J = J - 1 *-- 
7088 2B 1350 dec hl 
7089 A7 1360 and a 
708A ED52 1370 sbc hl,de 
708C CB7C 1380 bit 7,h 

1390 ;--* ALLER A PBCL SI K SUP OÙ EGAL À J-1 *-- 
708E 28E2 1400 jr z,pbcl 


1410 ;--* SINON J=J-1 *-- 
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7090 2AA470 1420 id hl,(nbpost) 
7093 2B 1430 dec hl 
7094 22A470 1440 1d (nbpost),hl 
7097 110200 1450 ld de,2 
709A A7 1460 and a 
709B ED52 1470 sbc hl,de 
7090 CB7C 1480 bit 7,h 
1490 ;--* SI J SUP OÙ EGAL A 2 ALLER A PSUIV *-- 
709F  28D5 1500 jr z,psuiv 
1510 ;--* REEQUILIBRE PILE *-- 
7OA1 FDEI 1520 pop jiy 
1530 ;--* FIN SI J INFERIEUR A 2 *-- 
70A3 C9 1540 ret 
1550 ; 
1560 ;--* ZONES UTILISEES POUR DONNEES *-- 
70A4 1570 nbpost: defs 2 ;NB POSTES TABL 
70Â6 1580 ptrorg: defs 2 ;PTR 1ER ELEM 
1590 ; 


1600 ;--* MESSAGE ERREUR AVANT ARRET *#-- 
70A8 6C652074 1610 messl: defm "le tableau a plus d'un indice / arret" 


70CD 0OAO0 1620 sautl: defb 10,0 
7OCF  6C652074 1630 mess2: defm "le tableau n'est pas en ‘'nom%' / arret" 
70F5  OAO0 1640 saut2: defb 10,0 
70F7 6E622065 1650 mess3: defm "nb elements a trier incorrect / arret" 
711C OAO0 1660 saut3: defb 10,0 


Pass 2 errors: 00 


affich C37D bcl 7049 deux  6FC0 
ellte2 707E ext 6FAA fintst 7080 
merrl 7021 merr2 7028 messl 70A8 
mess2 7OCF mess3 70F7 nbpost 70A4 
nom 6FCE pbcl 7072 post 7015 
postok 702F psuiv 7076 ptrorg 70A6 
romhau B900 rout 7000 rsx BCDI1 
sautl 70CD saut2 70F5 saut3 711C 
space 6FD3 suiv 7045 un 6FB5 


Table used: 328 from 900 
Executes: 28576 
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Démo de tri d’un tableau d’entiers T% (20) 


1@ MODE À 
2Q DIM t%x(2@) 
30 CLS 


4Q FOR i=@ TO 2@ 
5Q a=RND(i)x1@0@:a=INT(a) 


6@ PRINT a 
79 t%x(i)=a 
8Q NEXT 


99 LOCATE 25,2S:PRINT'APPUYEZ SUR UNE TO 
UCHE POUR CONTINUER":CALL &BBO6 
100 PRINT 

110 ax=àtx(@) 

120 ITRIE,a% 

130 PRINT 

14Q FOR i-=-© TO 20 

150 PRINT t%{(i) 

160 NEXT 

17© PRINT 

180 END 


Démo de tri d’une zone d’entiers 


10 MODE 2 

2Q DATA 1,0,0,1,6,0,350,23,15,45,50,1 
3Q FOR i=@ TO 5 

4Q READ v:POKE 3@0@+i,v 

5Q NEXT 

6Q FOR i=@ TO 5 

7Q READ v%:v$=HEX$(v%x,4) 

89 v1i$="&"+LEFTS(v$,2):v2$="8&"+RIGHTS(VS 
321) 

9Q vi=VAL(vI1$):v2=VAL(v2$) 

109 POKE 307+2%xi,vl:POKE 306+2%i,v2 
11Q NEXT 

129 PRINT'"'fin chargement" 

13Q© PRINT 

14Q FOR i=@ TO 5 

15@ v2=PEEK(3@6+2%xi):vi=PEEK(307+2%xi) 
160 v=vix2S6+v2Z2:PRINT v 

165 NEXT 

17©Q ITRIE,306 

175 PRINT'apres tri" 

18Q FOR i=@ TO 5 

19Q v2=PEEK(3@6+2xi):vi=PEEK(307+2%;i) 
200 v=vix256+v2:PRINT v 

21© NEXT 
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Hisoft GENA3.1 Assembler. 


Pass 1 errors: O0 


10 ;=* ROUTINE TRI DE TABLEAU DE REEL *-= 


6FAO 20 ent #6fa0 
6F AO 30 org #6fa0 

4O ;--* TRAITEMENT RSX *-- 
BCD1 50 rsx: equ #bcdl 
6FAO O1AA6F 60 ld bc,ext 
6FA3 21D36F 70 ld h1l,space 
6FA6  CDDIBC 80 call rsx 
6FA9 C9 90 ret 
6FAA CE6F 100 ext: defw nom 


110 ;--#* RECUPERATION PARAMETRES *-- 
120 ;--* HL=deb tabl / BC=nb elem a trier *-- 


6FAC FEOIl 130 Cp 1 
6FAE 2805 140 jr z,un 
6FBO FEO2 150 Cp. 2 
6FB2 280C 160 jr z,deux 
6FB4 C9 170 ret 
180 ;--* TRAIT 1 PARAMETRE *-- 
6FB5 010000 190 un: id bc,O 
6FB8 DD6601 200 ld h,(ix+1) 
6FBB  DD6E00 210 ld 1,(ix+0) 
6FBE 1840 220 jr rout 
230 ;--* TRAIT 2 PARAMETRES *-- 
6FCO DD6603 240 deux: ld h,(ix+3) 
6FC3 DD6E02 250 ld 1,(ix+2) 
6FCé DD4601 260 ld b,(ix+1) 
6FC9  DD4E00 270 ld c,(ix+0) 
6FCC 1832 280 jr rout 
290 ; 
6éFCE 545249 300 nom: defm "TRI" 
6éFD1 D2 310 defb "'R''+#80 
6FD2 00 320 defb 0 
6FD3 330 space: defs 4 
340 ; 
350 ;--* DEBUT ROUTINE 'TRIR' *-- 
7000 360 org #7000 
B900 370 romhau: equ #b900 
C37D 380 affich: equ #c37d 
BD8E 390 compar: equ #bd8e ;POUR CPC 6128 


7000  CDO0B9 400 rout: call romhau 

410 ;--* PTR HL SUR NB POSTES *-- 
7003 2B 420 dec hl 
7004 2B 430 dec hl 

440 ;--* SAUVE PTR HL DANS IX *-- 
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7005 
7006 


7008 
7009 
700B 


700D 
7010 
7013 


7015 
7016 


7018 
701A 
701D 
7020 
7021 
7024 
7027 
7028 
702B 
702E 


702F 


7030 
7032 


7033 
7035 
7036 
7037 


7038 
703A 


703B 
703D 
703F 
7041 


7043 
7047 


E5 
DDE1 


0B 
CB78 
2808 


DD4601 
DD4E00 
181A 


03 
CB78 


2815 
212C71 
CD7DC3 
C9 
21E070 
CD7DC3 
C9 
210771 
CD7DC3 
C9 


2B 


3EO1 
BE 


20EC 
2B 
2B 
2B 


3E04 
BE 


20EB 
DD2B 
DD2B 
DD2B 


DD220470 
ED43D270 


450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 


;--* TEST SI 


;5--* SI 


* 


;--* RECTIF NB POSTES *-- 


post: 


5--* SI 


merrl: 


merr2: 


5--* PTR HL SUR NB INDICES *-- 


postok: 


;--* TEST SI PLUS D'UN INDICE *-- 


5--* SI 


5--* PTR HL SUR TYPE VAR *-- 


;=* TEST SI 


;--* SI NON REEL ARRET *-- 


5--* PTR IX SUR TAILLE *-- 


;3--* SAUVE PTR IX ET NB POSTES *-- 


push h1 
pop ix 


dec bc 
bit 7,b 
jr z,post 


NUL TRIER TOUS *-- 


ld b,(ix+1) 
ld c,(ix+0) 
jr postok 


inc bc 
bit 7,b 


NEGATIF ARRET *-- 


jr _z,postok 
ld hl,mess3 
call affich 
ret 

ld hl,messl 
call affich 
ret 

ld hl,mess2 
call affich 
ret 


dec hl 


id a,1l 

cp (h1l) 

ERREUR ARRET *-- 
jr nz,merrl 


dec hl 
dec hl 
dec hl 


id a,4 
cp  (hl) 


jr nz,merr2 
dec ix 
dec ix 


dec jix 


ld  (ptrorg),ix 
ld (nbpost),bc 


920 ;--* CPT K = 1 *-- 


NB POSTES NUL *-- 


TYPE VAR = REEL *-- 
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704B FD210100 930 suiv: Id iy,l 
940 ;--* PTR IX SUR PROCH. ELEM. *-- 


704F  DD23 950 bcl: inc ix 
7051 DD23 960 inc ix 
7053 DD23 970 inc ix 
7055 DD23 980 inc ix 
7057 DD23 990 inc ix 

1000 ;--* SAUVE IY ET IX *-- 
7059 FDES 1010 push iy 
705B DDES 1020 push ix 

1030 ;--* REEL 1 DANS REELI *-- 
705D DDES 1040 push ix 
705F El 1050 pop hl 
7060 11D670 1060 ld de,reell 
7063 010500 1070 ld bc,5 
7066  EDBO 1080 ldir 

1090 ;--* REEL 2 DANS REEL2 *-- 
7068 DDE5 1100 push ix 
706A El 1110 pop hl 
706B 23 1120 inc hl 
706€ 23 1130 inc hl 
706D 23 1140 inc hl 
706E 23 1150 inc hl 
706F 23 1160 inc hl 
7070 11DB70 1170 ld de,reel2 
7073 010500 1180 ld bc,5 
7076  EDBO 1190 ldir 

1200 ;--* COMPARE REEL 1 ET REEL 2 *-- 
7078 21D670 1210 ld hl,reell 
707B 11DB70 1220 ld de,reel2 
707E  CD8EBD 1230 call compar 
7081 FEFF 1240 cp 255 

1250 ;--* ALLER A FINTST SI R1 INF A R2 *-- 
7083 2829 1260 jr z,fintst 

1270 ;--* ECHANGE REEL 1 ET 2 *-- 
7085 21DB70 1280 ld hl,reel2 

1290 ;--* RECUP ET SAUVE IX *-- 
7088 D 1300 pop de 
7089 D5 1310 push de 
708A 010500 1320 ld bc,5 

©1330 ;--* TRANSFERT REEL 2 DANS ELEM 1 *-- 

708D EDBO 1340 ldir 
708F 21D670 1350 id hl,reell 

1360 ;--* RECUP ET SAUVE IX *-- 
7092 D 1370 pop de 
7093 D5 1380 push de 

1390 ;--* DE POINTE SUR ELEM 2 *-- 
7094 13 1400 inc de 


7095 13 1410 inc de 
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7096 13 1420 inc de 
7097 13 1430 inc de 
7098 13 1440 inc de 
7099 010500 1450 ld bc,5 
1460 ;--* TRANSFERT REEL 1 DANS ELEM 2 *-- 
709C EDBO 1470 ldir 
1480 ;--* RECUP ET SAUVE IX *-- 
709 D1 1490 pop de 
709F D5 1500 push de 
70A0 180C 1510 jr  fintst 
1520 ;--* RECUP K ET VA A BCL *-- 
70A2 FDE1 1530 pbcl: pop jiy 
7014  18A9 1540 jr bcl 
1550 ;--* RECUP K ET VA A SUIV *-- 
70A6 FDEI 1560 psuiv: pop jiy 
70A8 DD2AD470 1570 ld ix,(ptrorg) 
70OAC 1890 1580 AT suiv 
1590 ;--* RECUP IX PUIS K DANS DE *-- 
7O0AE DDE1 1600 fintst: pop ix 
70B0 D1 1610 pop de 
1620 ;--* K = K + 1 *-- 
70B1 13 1630 inc de 
1640 ;--* SAUVE K *-- 
7082 D5 1650 push de 
1660 ;--* RECUP NB POSTES (J) *-- 
70B3 2AD270 1670 ld hl,(nbpost) 
1680 ;--* J = J - 1 *-- 
70B6 2B 1690 dec hl 
70B7 A7 1700 and a 
70B8 ED52 1710 sbc hl,de 
70BA CB7C 1720 bit 7,h 
1730 ;--* ALLER A PBCL SI K SUP OÙ EGAL A J-1 *-- 
70BC 28E4 1740 jr z,pbcl 
1750 ;--* SINON J-J-1 *-- 
70BE  2AD270 1760 ld h1,(nbpost) 
70C1 2B 1770 dec hl 
70C2 22D270 1780 ld (nbpost),hl 
70C5 110200 1790 ld de,2 
70C8 A7 1800 and a 
70C9 ED52 1810 sbc h1l,de 
70CB CB7C 1820 bit 7,h 
1830 ;--* SI J SUP OU EGAL A 2 ALLER A PSUIV *-- 
70CD 28D7 1840 jr z,psuiv 
1850 ;--* REEQUILIBRE PILE *-- 
70CF FDEI 1860 pop iy 
1870 ;--* FIN SI J INFERIEUR A 2 #-- 
70D1 C9 1880 ret 
1890 ; 


1900 ;--* ZONES UTILISEES POUR DONNEES *-- 
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70D2 
70D4 
70D6 
70DB 


70E0 


7151 


1910 
1920 
1930 
1940 


1950 ; 


1960 


6C652074 1970 
7105 OAO0O 
7107 6C652074 1990 
712C 6E622065 2000 


0A00 


1980 


2010 


Pass 2 errors: 00 


affich C37D 


deux 
merrl 
mess2 
nom 
postok 
reell 
rout 
saut3 
un 


Table 


6FCO 
7021 
7107 
6FCE 
702F 
70D6 
7000 
7151 
6FB5 


used: 


bcl 
ext 
merr2 
mess3 
pbcl 
psuiv 
reel2 
ISx 
space 
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nbpost: defs 
ptrorg: defs 


reell 
reel2 


, 


: defs 
: defs 


;--* MESSAGE 


mess] : 
saut] : 
mess2: 
mess3: 
saut3: 


704F 
6FAA 
7028 
712C 
70A2 
70A6 
70D8B 
BCO1 
6FD3 


340 from 
Executes: 28576 


defm 
defb 
defm 
defm 
defb 


compar 
fintst 
messl 
nbpost 
post 
ptrorg 
romhau 
sautl 
suiv 


900 


;NB POSTES TABL 
:PTR 1ER ELEM 
;FLOTTANT 1 
;FLOTTANT 2 


ui UN ON 


ERREUR AVANT ARRET *-— 

"le tableau a plus d'un indice / arret" 
10,0 

"le tableau n'est pas en 'nom' / arret" 
"nb elements a trier incorrect / arret" 
10,0 


BD8E 
JOÂE 
70E0 
70D2 
7015 
70D4 
B900 
7105 
704B 
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Démo de tri d’un tableau de réels T (20) 


19 MODE 2 

2Q DIM t(2@) 

3@ CLS 

4Q FOR i-=© TO 2@ 

59 a=RND(i)x100Q 

6Q PRINT a 

7Q t(i)=a 

8@ NEXT 

9Q LOCATE 25,25:PRINT"'APPUYEZ SUR UNE TO 
UCHE POUR CONTINUER":CALL &BBO6 
10Q PRINT 

119 a%=àt(@) 

12Q ITRIR,a% 

130 PRINT 

14Q FOR i=@ TO 20 

15Q PRINT t{(i) 

16Q NEXT 

17© PRINT 

189 END 
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temps 
en secondes 


84s 


al Graphe du tri suivant 


la méthode « Bulle » 





Les temps indiqués 
sont valables 
quel que soit le 
nombre de caractères 
| de l'article 
605 





45s + 





30s 


15s + 








3% nombre 
d'articles 
Os A + + ——————"#—_———— 





100 200 300 400 S00 600 700 800 900 


CHAPITRE 4 


GRAPHISMES 


GÉNÉRALITÉS 


L'Amstrad possède d'excellentes capacités graphiques dont il est important de savoir 
tirer parti afin d'améliorer la qualité de ses réalisations. C'est l'objet de ce chapitre. 
Celui-ci sera partagé en trois parties : 


(1) extensions BASIC pour le CPC 464, 
(2) traçage de figures géométriques, 
(3) traitement sur la mémoire écran. 


Pour chaque routine étudiée, vous trouverez: sa fonction, un organigramme 
fonctionnel, la liste assembleur, des explications concernant la structure et le contenu 
du programme, et parfois un exemple d'utilisation qui pourra être accompagné d'une 
copie de page écran. 


Les programmes suivants utilisent au maximum les routines système résidant dans la 
RAM des CPC. Celles-ci seront donc décrites avant les listes assembleur. Il sera 
précisé pour chacune d’entre elles leurs adresses respectives dans la RAM du CPC 
6128 et dans celle du CPC 464 car il arrive parfois, notamment pour les routines de 
calculs mathématiques, que leurs emplacements soient différents selon la machine 
utilisée. 


En règle générale, les routines proposées seront exploitables de deux manières 
différentes : 


(1) comme extensions BASIC précédées du symbole | et suivies de la liste des 
paramètres nécessaires à leur bon fonctionnement. 


(2) comme routines assembleur pouvant être appelées dans un programme BASIC 
par l'ordre CALL, suivi — si besoin est — des paramètres, ou appelables directement 
dans un programme assembleur, à condition que les données soient bien fournies 
pour permettre une exécution correcte. 
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EXTENTIONS BASIC POUR CPC 464 


COULEURS GRAPHIQUES 


Fonction : Choix de la couleur de l'encre du stylo et du papier pour des tracés 
graphiques. 


Contrairement au CPC 6128, le CPC 464 ne possède pas l'ordre BASIC permettant 
d'effectuer le choix des couleurs des encres du stylo et du papier dans le cas de tracés 
graphiques. 


Une solution consiste à faire suivre l'ordre d'un paramètre supplémentaire indiquant 
uniquement la couleur de l'encre du tracé en cours. 


Une autre solution est envisageable mais très coûteuse : il s'agit d'utiliser les codes de 
contrôle, soit CHRS(N), avec N inférieur à 32. Le RSX suivant vous permettra de 
résoudre facilement ce problème à moindre frais. 


Syntaxe : |[COULGRAF,N1,[N2] 


avec N1 : numéro de l'encre du stylo. 
N2 : numéro de l'encre du papier. 


Comme la couleur du fond ne peut apparaître que par l'ordre CLG, effaçage de la 
fenêtre graphique, il est préférable de permettre à l'utilisateur l'envoi facultatif du 
deuxième paramètre. 


Routines système utilisées 


#BCD1 : permet la création d'une extension. 
#BBDE : encre du stylo graphique. 
#BBE4 : encre du papier graphique. 


Ces adresses restent inchangées quel que soit le CPC utilisé. 


Explications 


La routine commence par tester si l'utilisateur a fait suivre le RSX de plus de 2 
paramètres. Dans ce cas, un retour au BASIC a immédiatement lieu sans affichage de 
message d'erreur. 


Le programme cherche ensuite s'il y a un ou deux paramètres : 


Cas d'utilisation d'un paramètre : 


Pour un seul paramètre s'effectue alors le positionnement de l'encre du stylo. Celle-ci 
se trouvant à l'adresse pointée par le registre IX sera chargée dans le registre C avant 
l'appel de la routine #BBDE. 


GRAPHISMES 167 


Cas d'utilisation de deux paramètres : 


Pour deux paramètres, la routine positionne d'abord le numéro de l'encre du papier 
(#BBE4), puis celle du stylo comme précédemment. 


Un exemple d'utilisation de cette extension sera fourni avec la deuxième routine 
concernant les rectangles dans le paragraphe 2. 


Il est à noter que les paramètres, permettant une bonne exécution de ce RSX, se 
rapportent au numéro des encres et non au numéro des couleurs. 


Il conviendra donc de bien définir auparavant les couleurs attribuées à chaque encre... 
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Routine de positionnement des couleurs graphiques (CPC 464) 


Légende : 


ACQUERIR 
PARAMETRES 
PLUS DE 2 
PARAMETRES 
? 

UN SEUL 
PARAMETRE 
? 
POSITIONNER 


COULEUR 
PAPIER 







O — chiffre zéro 

À — lettre (pour « OUI ») 
N — lettre (pour « NON ») 
[encre papier] 


NEA | Encre stylo 








POSITIONNER 
COULEUR 
STYLO 
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Pass 1 errors: 00 


10 ;=* COULEURS GRAPHIQUES CPC 464  *= 


20 ; 
6F AO 30 ent #6fa0 
6F AO 40 org #6fa0 
50 ; 
BCD] 60 rsx: equ #bcdl 
BBDE 70 pen: equ #bbde 
BBE4 80 paper: equ #bbe4 
90 ; 
6FAO O1AA6F 100 ld bc,ext 
6FA3 21D06F 110 ld hl,space 
6FA6  CDDI1BC 120 call rsx 
6FA9 C9 130 ret 
6FAA C76F 140 ext: defw nom 
150 ;--* TEST SI 2 PARAMETRES *-- 
6FAC FEO2 160 cp 2 
6FAE 280B 170 jr z,papier 
180 ;--* TEST SI 1 SEUL PARAMETRE *-- 
6FBO FEOL 190 cp 1 
6FB2 CO 200 ret nz 
210 ;--* ENCRE DU STYLO *-- 
6FB3 DD4E00 220 ld c,(ix+0) 
6FB6 79 230 stylo: Id a,c 
6FB7 CDDEBB 240 call pen 
6FBA C9 250 ret 


260 ;--* ENCRE DU PAPIER *-- 
6FBB  DD5E00 270 papier: 1d e,(ix+0) 


6éFBE 7B 280 ld a,e 
6FBF  CDEA4BB 290 call paper 
6FC2 DD4E02 300 ld c,(ix+2) 
6FC5 18EF 310 jr stylo 

320 ; 
6FC7 434F554C 330 nom: defm "COULGRA'" 
éFCE C6 340 defb "F"+480 
6FCF O0 350 defb 0 
6FDO 360 space: defs 4 


Pass 2 errors: 00 


ext 6FAA nom 6FC7 paper BBE4 
papier 6FBB pen BBDE rsx BCDI 
space 6FDO stylo 6FB6 


Table used: 102 from 900 
Executes: 28576 
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FENÊTRE GRAPHIQUE 


Fonction : Création d'une fenêtre graphique. 


ll s'agit ici de délimiter une fenêtre dans laquelle viendront s'exécuter les ordres 
graphiques comme le choix des couleurs de l'encre du stylo et du papier, ainsi que 
tous les ordres de traçage graphique. 


L'intérêt est de concevoir ainsi des écrans contenant à la fois du texte et du graphisme, 
sans interférence de l'un sur l’autre. || sera alors possible d'effacer le contenu de la 
fenêtre graphique sans effacer le texte, ou de changer l'encre d'écriture des caractères 
sans changer celle du graphisme. 


Syntaxe : |FENGRAF,X1,X2,Y1,Y2 


avec X1: coordonnée du bord gauche de la fenêtre. 
X2 : coordonnée du bord droit de la fenêtre. 
Y1: coordonnée du bord haut de la fenêtre. 
Y2 : coordonnée du bord bas de la fenêtre. 


X1 et X2 compris entre O et 639. 
Y1 et Y2 compris entre O et 399. 


Routines système utilisées 


#BBCF : placement des bords verticaux de la fenêtre. 
#BBD2 : placement des bords horizontaux de la fenêtre. 


Explications 


La routine est fort simple. Après lecture des paramètres, les registres DE et HL 
contiennent X1 et X2 et la routine #BBCF est appelée. 


Les registres DE et HL sont ensuite chargés avec Y1 et Y2 avant l'appel de la routine 
#BBD2 qui fixe les bords verticaux. 


Il est à noter que le système corrige l'envoi de paramètres trop grands. De même, le 
bord gauche est toujours déterminé par la plus petite des valeurs entre X1 et X2; 
l'ordre n’a donc que peu d'importance. Le même phénomène se reproduit avec les 
limites horizontales pour lesquelles le bord bas est fixé par la plus petite des valeurs 
entre Y1 ou Y2. 


Cette routine de détermination de la fenêtre graphique peut être complétée par la 
routine précédente pour fixer les couleurs des encres du stylo et du papier... 
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Routine de positionnement d’une fenêtre graphique (CPC 464) 

















PLACEMENT 
LIMITE 
GAUCHE 


PLACEMENT 
LIMITE 
DROITE 


PLACEMENT 
LIMITE 
HAUTE 


PLACEMENT 
LIMITE 
BASSE 


FIN 


ACQUERIR 
PARAMETRES 


_ 


L 


Limite gauche 
Limite droite 
Limite haute 
Limite basse 


171 


172 RSX ET ROUTINES ASSEMBLEUR SUR AMSTRAD CPC 
Hisoft GENA3.1 Assembler. 
Pass 1 errors: 00 


10 ;-* FENETRES GRAPHIQUES CPC 464 *= 


20 ; 
6FAO 30 ent #6fa0 
6F AO 40 org #6fa0 
50 ; 
60 ;--* TRAITEMENT RSX *#-- 
70 ; 
BCDI 80 rsx: equ #bcdl 
BBCF 90 borver: equ #bbcf 
BBD2 100 borhor: equ #bbd2 
110 ; 
6FAO O1AA6F 120 ld bc,ext 
6FA3 21E16F 130 1d hl,space 
6FA6 CDDIBC 140 call rsx 
6FA9 C9 150 ret 
160 ; 
170 ;--* RECUPERATION DES PARAMETRES *-- 
180 ; 
6FAA D96F 190 ext: defw nom 
6FAC  DD4607 200 ld b,(ix+7) 
6FAF _ DD4E06 210 ld c,(ix+6) 
6FB2 ED431570 220 ld (gauche) ,bc 
6FB6 DD4605 230 ld b,(ix+5) 
6FB9  DD4E04 240 ld c,(ix+4) 
6FBC ED431770 250 id  (droite),bc 
6FCO DD4603 260 1d b,(ix+3) 
6FC3 DD4E02 270 ld c,(ix+2) 
6FCé ED431970 280 ld (haut),bc 
6FCA DD4601 290 1d b,(ix+1) 
6FCD DD4E00 300 ld c,(ix+0) 
6FDO ED431B70 310 1d (bas),bc 
6FD4 FEO4 320 cp à 
6FD6 CO 330 ret nz 
6FD7 1827 340 jr rout 
350 ; 
6FD9 46454E47 360 nom: defm "FENGRA' 
6FDF C6 370 defb "F'+/180 
6FEO O0 380 defb O 
6FEL 390 space: defs 4 
400 ; 
410 ;--* TRAITEMENT CALL *-- 
420 ; 
7000 430 org #7000 
440 ; 


450 ;--* PLACEMENT LIMITES VERTICALES *-- 
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7000 ED5B1570 460 rout: ld  de,(gauche) 
7004 2A1770 470 ld hl,(droite) 
7007 COCFBB 480 call borver 
490 ;--* PLACEMENT LIMITES HORIZONTALES *-- 
700A ED5B1970 500 ld de,(haut) 
700€ 2A1B70 510 ld hl,(bas) 
7011 CDD2BB 520 call borhor 
7014 C9 530 ret 
540 ; 
7015 550 gauche: defs 2 ;STO BORD GAUCHE 
7017 560 droite: defs 2 ;STO BORD DROIT 
7019 570 haut:  defs 2 ;STO BORD HAUT 
701B 580 bas: defs 2 ;STO BORD BAS 
Pass 2 errors: 00 
bas 701B borhor BBD2 borver BBCF 
droite 7017 ext 6FAA gauche 7015 
haut 7019 nom 6FD9 rout 7000 
ISx BCD1 space 6FEL 
Table used: 139 from 900 


Executes: 28576 
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TRACÉS DE FIGURES GÉOMÉTRIQUES 


GÉNÉRALITÉS 


Ce paragraphe vous propose d'étudier des routines permettant de tracer des figures 
géométriques telles que : triangle, rectangle, cercle, ellipse et polygone régulier à n 
côtés. 

Bien entendu le nombre de ces routines aurait pû être étendu. On pourrait envisager le 
tracement de losanges, de parallélogrammes ou de triangles particuliers. Ce n'est pas 
notre propos que de proposer une liste interminable de figures et nous pensons 
qu'après l'étude des routines suivantes, votre imagination aidant, vous serez en 
mesure de créer vos propres applications. 


Pour certains des programmes suivants, il est nécessaire d'effectuer des calculs 
mathématiques. Ils seront réalisés à partir des routines système disponibles dans la 
RAM des CPC. 


Cependant un problème se pose. En effet, d'une part les adresses diffèrent suivant la 
machine utilisée, d'autre part le CPC 6128 ne dispose pas des routines permettant de 
traiter les calculs sur les nombres entiers tels que multiplication et division. 


Par souci d'harmonisation et pour que toutes les routines proposées puissent tourner 
sur tous les modèles de CPC, nous avons choisi d'utiliser le traitement des calculs en 
virgule flottante alors que parfois, pour le 464, ces calculs auraient pü être effectués en 
nombres entiers. L'utilisateur pourra, s'il possède cette dernière machine, transformer 
les listes assembleur et faire les calculs à l'aide des vecteurs mathématiques propres à 
son appareil. 


Les listes assembleur sont prévues pour le CPC 6128, mais dans la présentation des 
routines, vous trouverez, si nécessaire, les équivalences pour le CPC 464... 


TRACÉ DE TRIANGLE 


Fonction : Tracé d'un triangle quelconque. 


Cette routine permet de tracer un triangle, dans la fenêtre graphique en cours si 
celle-ci a été définie, sinon directement sur tout l'écran. Pour cela, il suffira de faire 
suivre l'ordre RSX par les coordonnées des trois sommets du triangle ou fournir les 
paramètres nécessaires directement au programme assembleur. 


Pour tracer des triangles particuliers, il faudra jouer sur les coordonnées des sommets. 


Vous trouverez également dans cette routine une particularité commune à tous les 
autres programmes de ce chapitre, à savoir la sauvegarde de l'origine en cours. En 
effet, la routine utilisée pour effectuer le tracé d'un point à l'écran utilise, comme 
origine de référence, l'origine en cours définie par l'utilisateur et positionne le point par 
rapport à celle-ci. Il aurait donc fallu en tenir compte dans la détermination des 
coordonnées des sommets. 
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Pour éviter ces calculs, nous avons choisi d'exprimer toutes les coordonnées par 
rapport à une origine absolue (0,0), située en bas et à gauche de l'écran. Dans ce cas, 
il faut auparavant sauver l'origine en cours, ce qui est fait en début de programme ; 
puis positionner de la nouvelle origine en (0,0), et rétablir de l'origine initiale à l'issue 
de l'exécution de la routine. 


Syntaxe : |TRIANGLE,X1,Y1,X2,Y2,X3,Y3 


avec X1,Y1: coordonnées du premier sommet. 
X2,Y2 : coordonnées du deuxième sommet. 
X3,Y3 : coordonnées du troisième sommet. 


X1, X2 et X3 compris entre O et 639. 
Y1, Y2 et Y3 compris entre O et 399. 


Routines système utilisées 


#BBCC : recherche de l'origine en cours. 
#BBC9 : positionnement de la nouvelle origine. 
#BBF6 : tracé d'une droite. 

#BBEA : tracé d'un point. 


Aucun changement quel que soit le CPC utilisé. 


Explications 


Après la réception des paramètres, fournis avec l'instruction RSX ou directement 
chargés à leur emplacement mémoire, la routine commence par sauver l'origine en 
cours dans les variables ORGX et ORGY. La nouvelle origine est alors fixée, de 
coordonnées 0,0. 


Les registres DE et HL sont chargés avec les coordonnées du premier sommet, X1 et 
Y1. Celles-ci sont placées dans la pile afin de pouvoir être rappelées lors du tracement 
du dernier côté. Puis la routine trace le premier sommet par appel de #BBEA. 


Les coordonnées du deuxième sommet, X2 et Y2, sont placées dans les registres DE 
et HL afin de tracer la droite reliant la dernière position du curseur graphique au point 
dont les coordonnées viennent d'être fournies. Ceci s'effectue grâce à la routine 
#BBF6. On agit de même pour le troisième sommet de coordonnées X3 et Y3. Pour 
tracer le dernier côté, il suffit de dépiler X1 et Y1 et d'appeler à nouveau la routine 
#BBF6. 

Pour conclure, on replace l'origine initiale par appel de #BBC9 après chargement de 
ORGX et ORGY dans les registres DE et HL.. 


Démonstration 


Le court programme BASIC suivant vous permettra de tracer un superbe dessin grâce 
à cette nouvelle instruction. 


10 MODE2 

20 FOR I1=0 TO 50 

30 |TRIANGLE,12x1,100—2x1,100+8x1,3x1,150—-3x1,400—-6 xi 
40 NEXT 
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Routine de tracé de triangle 
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Pass 1 errors: 00 


10 ;=* ROUTINE TRIANGLE CPC 464 ET 6128 *= 


20 ; 
6F AO 30 ent #6fa0 
6F AO 40 org #6fa0 

50::; 

60 ;--* TRAITEMENT RSX *-- 

70 ; 
BCD1 80 rsx: equ #bcdl 
6FAO  O1AA6F 90 ld bc,ext 
6FA3 21F46F 100 : ld hl,space 
6FA6  CDD1BC 110 call rsx 
6FA9 C9 120 ret 
6FAA  EB6F 130 ext: defw nom 

140 ;--* RECUPERATION DES PARAMETRES *-- 
6FAC DD4601 150 ld b,(ix+l) 
6FAF  DD4E00 160 1d c,(ix+0) 
6FB2 ED434D70 170 ld (y3),bc 
6FB6 DD5603 180 ld d,(ix+3) 
6FB9  DD5E02 190 1d e,(ix+2) 
6FBC ED534B70 200 ld (x3),de 
6FCO DD6605 210 ld h,(ix+5) 
6FC3 DD6E04 220 ld 1,(ix+4) 
6FC6é 224970 230 1d (y2),hl 
6FC9 DD4607 240 ld b,(ix+7) 
6FCC DD4E06 250 ld c,(ix+6) 
6FCF ED434770 260 ld  (x2),bc 
6FD3 DD6609 270 ld h,(ix+9) 
6FD6 DD6E08 280 ld 1,(ix+8) 
6FD9 224570 290 ld (y1),hl 
6FDC DD460B 300 1d b,(ix+1l) 
6FDF  DD4EOA 310 ld c,(ix+10) 
6FE2 ED434370 320 ld (x1),bc 
6FE6 FE06 330 cp 6 
6FE8 CO 340 ret nz 
6FE9 1815 350 jr rout 

360 ; 
6FEB 54524941 370 nom: defm "TRIANGL" 
6FF2 C5 380 defb "E'"+180 
6FF3 00 390 defb 0 
6FF4 400 space: defs 4 

410 ; 

420 ; 


430 ;--* TRAITEMENT CALL *-- 
440 ; 
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7000 450 org #7/7000 
460 ; 

BBCC 470 rechor: equ #bbcc 

BBC9 480 origin: equ #bbc9 

BBF6 490 tracdr: equ #bbf6 

BBEA 500 tracpi: equ fbbea 
510 ; 


7000 CDCCBB 520 rout: call rechor 
530 ;--* SAUVEGARDE DE L'ORIGINE *-- 


7003 ED534F70 540 1d (orgx),de 
7007 225170 550 1d (orgy),hl 
560 ;--* MISE DE L'ORIGINE A (0,0) *-- 
700A 110000 570 ld de,0 
7000 210000 580 ld h1,0 
7010 CDC9BB 590 call origin 
600 ;--* TRACAGE POINT DEPART #-- 
7013 ED5B4370 610 ld de,(xl) 
7017 2A4570 620 id hl,(y1) 
701A D5 630 push de 
701B E5 640 push h1 
701C CDEABB 650 call tracpi 
660 ;--* TRACAGE DES COTES *-- 
701F ED5B4770 670 ld de,(x2) 
7023 2A4970 680 id h1l,(y2) 
7026 CDF6BB 690 call tracdr 
7029 ED5B4B70 700 ld de,(x3) 
702D 2A4D70 710 ld h1l,(y3) 
7030 CDF6BB 720 call tracdr 
7033 El 730 pop h1l 
7034 D1 740 pop de 
7035 CDF6BB 750 call tracdr 
760 ;--* REMISE ORIGINE INITIALE *-- 
7038 ED5B4F70 770 ld de,(orgx) 
703C 2A5170 780 1d hl,(orgy) 
703F  CDC9BB 790 call origin 
7042 C9 800 ret 
810 ; 
7043 820 xl: defs 2 ;*X ler POINT 
7045 830 yl: defs 2 ;Ÿ ler POINT 
7047 840 x2: defs 2 ;X 2eme POINT 
7049 850 y2: defs 2 ;Ÿ 2eme POINT 
704B 860 x3: defs 2 ;X 3eme POINT 
704D 870 y3: defs 2 >Ÿ 3eme POINT 
704F 880 orgx: defs 2 ;ORIG. INIT. X 
7051 890 orgy:  defs 2 ;ORIG. INIT. Y 
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Pass 2 errors: O0 


ext 6FAA 
orgy 7051 
rout 7000 
tracdr BEF6 
x2 7047 
y2 7049 
Table used: 


nom 6FEB 
origin BBC9 
TSX BCD] 
tracpi BBEA 
x3 704B 
y3 7040 
194 from 


Executes: 28576 


orgx  704F 
rechor BBCC 
space 6FF4 
xl 7043 
yl 7045 
900 
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TRACÉ DE RECTANGLE 


Fonction : tracé d'un rectangle. 


Le programme suivant permet de tracer des rectangles dont les bords sont parallèles 
aux côtés de l'écran. Pour cela, il faudra définir le point de départ de la figure, qui sera 
le coin bas à gauche, ainsi bien entendu que la longueur et la largeur. 


À partir de là, on pourrait envisager de déterminer les quatre sommets et les relier par 
des droites comme cela était le cas pour le tracé des triangles. Nous avons préféré 
une solution plus rapide qui utilise la capacité des CPC à tracer des droites. La 
dernière position du curseur sera reliée à un point dont on indique soit les 
coordonnées absolues par rapport à l'origine, soit les coordonnées relatives par 
rapport à la dernière position du curseur. 


Dans le cas du rectangle, il est préférable de choisir la deuxième possibilité car le 
déplacement à effectuer sera toujours de + ou — la longueur ou + ou — la largeur 
suivant le côté à tracer. 


Syntaxe : IRECTANGLE,A,B,C,D 


avec À = coordonnée X de départ (comprise entre O et 639). 
B = coordonnée YŸ de départ (comprise entre O et 399). 
C = côté horizontal. 
D = côté vertical. 


Le CPC ne tracera que les points inclus dans la fenêtre graphique si celle-ci est 
définie. 


Routines système utilisées 


#BBCC : recherche de l'origine en cours. 

#BBC9 : positionnement de la nouvelle origine. 
#BBEA : tracé d'un point. 

#BBF6 : tracé d'une droite vers une position absolue. 
#BBF9 : tracé d'une droite vers une position relative. 
Ces adresses sont les mêmes pour tous les CPC. 


Explications 


Les paramètres sont récupérés dans les variables DEPX et DEPY pour les 
coordonnées du coin en bas à gauche, et dans COTH et COTV pour la longueur de 
chaque côté. 


L'ancienne origine est sauvegardée dans ORGX et ORGY et la nouvelle positionnée 
en 0,0. La routine trace, par appel de #BBEA, le point de départ, de coordonnée 
DEPX et DEPY. 
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Le premier côté est alors tracé à l'aide de la routine #BBF9 qui relie la dernière 
position du curseur à un nouveau point défini par un déplacement relatif de COTH vers 
la droite. Le deuxième côté est tracé de la même manière, avec cette fois un 
déplacement vertical de COTV. 


Le côté suivant correspond à un déplacement horizontal vers la gauche de l'écran, 
donc d’une valeur négative, plus précisément de — COTH. Il faut alors calculer cette 
valeur. Nous aurions pu faire appel à un vecteur mathématique pour effectuer ce 
travail. Nous avons préféré utiliser le complément à 2 qui est, en binaire, la négation 
d'un nombre. Pour cela, COTH est chargé dans HL, puis H et L transitent par le 
registre À où s'effectue le complément, avant que HL soit incrémenté de 1 pour obtenir 
— COTH. Le troisième côté est alors tracé, toujours grâce à la routine #BBF9. 


Pour le dernier côté, il suffit de tracer la droite reliant la dernière position du curseur au 
point de départ, ce qui se fait par la routine #BBF6. 


On conclut en replaçant l'origine initiale sauvegardée en début de programme. 
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Routine de tracé de rectangle non orientable 
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Hisoft GENA3.]1 Assembler. 
Pass 1 errors: 00 


10 ;=* ROUTINE RECTANGLE CPC 464 ET 6128 *= 


20 ; 
6F AO 30 ent #6fa0 
6F AO 40 org #6fa0 

50: 

60 ;--* TRAITEMENT RSX *-- 

70 ; 
BCD1 80 rsx: equ #bcdl 
6FAO OJ1AA6F 90 ld bc,ext 
6FA3 21E26F 100 ld hl,space 
6FA6  CDDIBC 110 call rsx 
6FA9 C9 120 ret 
6FAA  D86F 130 ext: defw nom 

140 ;--* RECUPERATION DES PARAMETRES *-_ 
6FAC DD4601 150 ld b,(ix+1) 
6FAF _ DD4E00 160 1d c,(ix+0) 
6FB2 ED435870 170 ld (cotv),bc 
6FB6 DD5603 180 ld d,(ix+3) 
6FB9  DD5E02 190 ld e,(ix+2) 
6FBC ED535670 200 id (coth),de 
6FCO DD6605 210 ld h,(ix+5) 
6FC3 DD6E04 220 ld 1,(ix+4) 
6FC6 225C70 230 ld (depy),hl 
6FC9 DD4607 240 1d b,(ix+7) 
6FCC  DD4E06 250 ld c,(ix+6) 
6FCF ED435A70 260 1d (depx),bc 
6FD3 FEO4 270 cp 4 
6FD5 CO 280 ret nz 
6FD6 1828 290 jr  rout 

300 ; 
6FD8 52454354 310 nom: defm "RECTANGL" 
6éFEO C5 320 defb "E"4+480 
6FEl 00 330 defb 0 
6FE2 340 space: defs 4 

350 ; 

360 ; 

370 ;--* TRAITEMENT CALL *-- 

380 ; 
7000 390 org #7000 

400 ; 
BBCC 410 rechor: equ #bbcc 
BBC9 420 origin: equ #bbc9 
BBEA 430 tracpi: equ #bbea 


BBF9 440 tracdl: equ #bbf9 
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BBF6 450 tracd2: equ #bbf6 
460 ; 
7000  CDCCBB 470 rout: call rechor 
480 ;--* SAUVEGARDE DE L'ORIGINE *-- 


7003 ED535E70 490 1d (orgx),de 
7007 226070 500 ld (orgy),hl 

510 ;--* ORIGINE = (0,0) *-- 
700A 110000 520 ld de,0 
700D 210000 530 ld h1,0 
7010 CDC9BB 540 call origin 

550 ;--* TRACAGE POINT DEPART #-- 
7013 ED5B5A7O 560 ld de,(depx) 
7017 2A5C70 570 ld hl,(depy) 
701A CDEABB 580 call tracpi 

590 ;--* TRACAGE ler COTE *-- 
701D ED5B5670 600 ld de,(coth) 
7021 210000 610 ld h1,0 
7024 CDF9BB 620 call tracdl 

630 ;--* TRACAGE 2eme COTE *-- 
7027 110000 640 ld de,0 
702A 2A5870 650 ld hl,(cotv) 
702D CDF9BB 660 call tracdl 

670 ;--* CALCUL DE - COTH *-- 
7030 2A5670 680 ld hl,(coth) 
7033 7C 690 ld a,h 
7034 2F 700 cpl 
7035 67 710 ld h,a 
7036 7D 720 ld a,1l 
7037 2F 730 cpl 
7038 6F 740 ld l,a 
7039 23 750 inc hl 

760 ;--* TRACAGE 3eme COTE *-- 
703A EB 770 ex de,hl 
703B 210000 780 ld h1,0 
703E  CDF9BB 790 call tracdl 

800 ;--* TRACAGE 4eme COTE *-- 
7041 ED5B5A70 810 ld  de,(depx) 
7045 2A5C70 820 ld hl,(depy) 
7048 CDF6BB 830 call tracd2 

840 ;--* REMISE ORIGINE INITIALE *-- 
704B ED5B5E70 850 ld  de,(orgx) 
704F  2A6070 860 id hl,(orgy) 
7052 CDC9BB 870 call origin 
7055 C9 880 ret 

890 ; 
7056 900 coth:  defs 2 ;COTE HORIZONTAL 
7058 910 cotv: defs 2 ;COTE VERTICAL 


705A 920 depx:  defs 2 > DEPART X 
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705C 930 depy: defs 2 ; DEPART Y 

705€ 940 orgx: defs 2 : STOCK ORIGINE X 
7060 950 orgy: defs 2 ; STOCK ORIGINE Y 


Pass 2 errors: O0 


coth 7056 cotv 7058 depx  705A 
depy  705C ext 6FAA nom 6FD8 
orgx 705E orgy 7060 origin BBC9 
rechor BBCC rout 7000 rsx BCD1 
space 6FE2 tracdl BBF9 tracd2 BBF6 
tracpi BBEA 


Table used: 197 from 900 
Executes: 28576 
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TRACÉ DE RECTANGLE (avec orientation) 


Fonction : tracé d'un rectangle quelconque. 


Les routines précédentes nous ont permis de nous familiariser avec certaines 
procédures graphiques comme le traitement des origines, le tracé de points ou de 
droites. 


Cependant, force est d'avouer que la routine de rectangle est très limitative, dans la 
mesure où seuls des rectangles dont les côtés sont parallèles aux bords de l'écran 
peuvent être tracés. || serait donc très intéressant de pouvoir construire des rectangles 
de n'importe quelle orientation dans l'écran, repérée par l'angle a que fait le premier 
côté par rapport à l'horizontale. 


Ainsi, supposons que le point de départ devienne l'origine de coordonnée 0,0; de 
même les deux côtés portent les noms COT1 et COT2, et l'angle d'inclinaison est a; 
alors les coordonnées des trois autres sommets seraient respectivement et 
relativement par rapport au précédent : COT1xCOS a, COT1 xSIN a ;, — COT2XSIN 
a, COT2xXCOS a et — COTIxXCOS a, — COTIXSIN a. 


Cela nécessitera donc l'emploi des vecteurs mathématiques. De plus, le traitement 
des lignes trigonométriques ne pouvant se faire qu'en virgule flottante, il faudra 
convertir l'angle et les côtés ; puis effectuer les calculs et reconvertir les résultats en 
entier puisqu'ils serviront de coordonnées. 


Syntaxe : IRECTANGLE,X,Y,A,B,a 


avec X : coordonnée X du point de départ du rectangle. 
X compris entre O et 639. 
Y : coordonnée Y du point de départ du rectangle. 
Y compris entre O et 399. 
: premier côté. 
: deuxième côté. 
: angle d'inclinaison du premier côté en degrés. 


® > 


Si une fenêtre graphique est définie, seuls les points inclus dans cette fenêtre seront 
tracés. 


Routines système utilisées 


Les adresses fournies dans la liste assembleur sont celles du CPC 6128. Pour les 
vecteurs mathématiques sont indiquées entre parenthèses les adresses correspon- 
dant au CPC 464. Les autres adresses restent inchangées quel que soit le CPC 
employé. 
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#BDAC (#BD88) : calcul du sinus d'un angle. 

#BDAF (#BD8B) : calcul du cosinus d'un angle. 

#BD61 (#BD3D) : copie d'un nombre d'une adresse à une autre. 
#BD64 (#BD40) : conversion ENTIER en FLOTTANT (pointé par DE). 
#BD67 (#BD43) : conversion ENTIER en FLOTTANT (pointé par HL). 
#BD6D (#BD49) : conversion FLOTTANT en ENTIER. 

#BD85 (#BD61) : multiplication en FLOTTANT. 

#BD94 (#BD70) : test du signe d'un nombre en FLOTTANT. 


#B113 (#B8F7) : pointeur indicateur de l'unité d'angle. 


#BBC9 : positionnement de l'origine. 

#BBCC : recherche de l'origine en cours. 

#BBEA : tracé d'un point. 

#BBF6 : tracé d'une droite avec coordonnées absolues. 
#BBF9 : tracé d'une droite avec coordonnées relatives. 


Explications 


Les paramètres sont tout d'abord stockés dans DEPX et DEPY pour les coordonnées 
du point de départ, dans COT1CO et COT2CO pour les deux côtés, et dans ANG pour 
l'angle. 


Trois sous-programmes sont élaborés. Le premier, appelé CONV, permet de faire la 
conversion d'un côté en virgule flottante et de le stocker à deux adresses différentes. 
Le suivant, ENT, sert à effectuer la conversion inverse, c'est-à-dire de flottant en 
entier, en testant auparavant le signe afin de le rétablir dans l'expression du nombre 
entier (en effet la routine #BD6D fournit toujours un résultat positif). Enfin, NEGAT, le 
troisième sous-programme, effectue la négation d'un entier selon la même méthode 
que dans le programme précédent, à savoir par complément à deux. 


La routine débute par la recherche et le stockage de l'origine en cours dans les 
variables ORGX et ORGY. La nouvelle origine devient le point de départ repéré par 
ses coordonnées DEPX et DEPY. 


Les côtés sont alors convertis en flottant dans COT1CO et COT1SI d'une part, et dans 
COT2CO et COT2SI d'autre part, ceci à l'aide du sous-programme CONV. De même 
pour l'angle, converti dans STO1 et STO2. 


On fixe ensuite l'unité d'angle en degrés par l'envoi de 255 (#FF) dans le pointeur 
#B1135. 


La routine effectue la multiplication de chaque côté par le sinus et le cosinus de l'angle 
a, ce qui explique le besoin que nous avions de stocker chaque côté deux fois. 
Chacun de ces quatre calculs est alors transformé en nombre entier aux mêmes 
adresses : COTICO contient le côté 1 multiplié par le cosinus de l'angle a, et ce, en 
entier, COTISI le côté 1 multiplié par le sinus de l'angle a, et ainsi de suite. 
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On peut alors tracer les quatre côtés, après avoir placé le point de départ grâce à la 
routine #BBEA. 


Les trois premiers côtés sont tracés par appel de la routine #BBF9, qui demande les 
coordonnées du point d'arrivée de la droite relativement au point de départ. Il est donc 
nécessaire pour les deuxième et troisième côtés de passer par le sous-programme 
NEGAT. 


Le dernier côté est tracé par la routine #BBF6 qui relie le dernier point au point de 
départ du rectangle. La routine s'achève par le rétablissement de l'origine initiale. 


Démonstration 


Le programme BASIC de démonstration utilise la routine sous sa forme RSX. Elle 
permet d'effectuer une série de rotations d'un rectangle. 


10 MODE 2 

20 FOR 1=0 TO 30 STEP 2 

30 |RECTANGLE,100+i,200—4x1,120,80,90—3xI 
40 NEXT 


Pour 1=0, a = 90 degrés, le rectangle aura son plus grand côté dans le sens vertical. 
Petit à petit, en suivant |, l'angle a diminué. Pour 1=30, a vaut 0. Le rectangle possède 
donc maintenant son plus grand côté dans le sens horizontal. 


Noter qu'en utilisant la routine COULGRAF ou, pour le CPC 6128, les ordres BASIC 
GRAPHICS PEN et GRAPHICS PAPER, on peut obtenir l'illusion d'une animation 
dans laquelle un objet rectangulaire chuterait en tournant. 


Pour le CPC 6128, il faut rajouter : 


15 GRAPHICS PAPER 0 

25 GRAPHICS PEN 1 

32 GRAPHICS PEN 0 

34 |RECTANGLE,100+1,200—-4x1,120,80,90—-3xI 


Pour le CPC 464, les rajouts sont : 


25 |[COULGRAF, 1,0 
32 |COULGRAF,0,0 
34 |RECTANGLE,100+1,200—4x1,120,80,90—3x| 


Attention, si vous utilisez les deux routines |RECTANGLE et |ICOULGRAF en même 
temps, il faut veiller à ce que leurs adresses d'implantation soient bien compatibles. 
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Routine de tracé de rectangle avec orientation 


COIN en bas et à gauche (X,Y) 
COTE 1 


COTE 2 
ANGLE entre côté 1 et Horizontale 





CONSERVER 
ORIGINE 
INITIALE 


TRAITEMENT 
ORIGINE 


CONVERSION 
ANGLE ET COTES 
EN FLOTTANT 


UNITE 
D'ANGLE 
EN DEGRES 


CALCUL 
DE 
COTI X COS 


CALCUL 
DE 
COT2 X COS 


CALCUL 
DE 
COT1 X SIN 


CALCUL 
DE 
COT2 X SIN 


CONVERSION 
COORDONNEES 
EN ENTIER 


TRACAGE 
DES COTES 


RETABLIR 
ORIGINE 
INITIALE 
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Hisoft GENA3.1 Assembler. 
Pass 1 errors: 00 


10 ;=* ROUTINE RECTANGLE 2 CPC 6128 *-- 


20 ; 
6F AO 30 ent #6fa0 
6FAO 40 org #6fa0 

50 ; 

60 ;--* TRAITEMENT RSX *-- 

70 ; 
BCDI 80 rsx: equ #bcdl 
6FAO O1AA6F 90 ld bc,ext 
6FA3 21ED6F 100 1id hl,space 
6FA6  CDDI1BC 110 call rsx 
6FA9 C9 120 ret 
6FAA E36F 130 ext: defw nom 

140 ;--* RECUPERATION DES PARAMETRES *-- 
6FAC DD5601 150 ld d,(ix+l) 
6FAF  DD5E00 160 id e,(ix+0) 
6FB2 ED53E770 170 1d  (ang),de 
6FB6  DD4603 180 ld b,(ix+3) 
6FB9  DD4E02 190 ld c,(ix+2) 
6FBC ED43FB70 200 1d (cot2co),bc 
6FCO DD4605 210 id b,(ix+5) 
6FC3 DD4E04 220 ld c,(ix+4) 
6FC6é ED43F170 230 ld  (cotico),bc 
6FCA  DD4607 240 1d b,(ix+7) 
6FCD DD4E06 250 ld c,(ix+6) 
6FD0O ED43EF70 260 ld (depy),bc 
6FD4  DD4609 270 1d b,(ix+9) 
6FD7 DD4E08 280 ld c,(ix+8) 
6FDA ED43ED70 290 ld (depx),bc 
6FDE FEO5 300 cp 5 
6éFEO CO 310 ret nz 
6FEL 181D 320 jr rout 

330 ; 
6FE3 52454354 340 nom: defm "RECTANGL" 
6FEB C5 350 defb "E'+#80 
éFEC O0 360 defb O 
éFED 370 space: defs 4 

380 ; 

390 ; 

400 ;--* TRAITEMENT CALL *-- 

410 ; 
7000 420 org #7000 

430 ; 


BBCC 440 rechor: equ #bbcc 
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BBC9 450 origin: equ #bbc9 
BD64 460 entflo: equ #bdé64 
BD61 470 copie: equ #bdél 
BD67 480 entf12: equ ‘#bdé67 
BDAF 490 cosin: equ #bdaf 
BD85 500 multip: equ #bd85 
BDAC 510 sinus: equ fbdac 
B113 520 degres: equ #b113 
BBEA 530 tracpi: equ #bbea 
BBF9 540 tracdr: equ #bbf9 
BBF6 550 tracd2: equ f#bbf6 
BD94 560 signe: equ #bd94 
BD6D 570 floent: equ #bdéd 
580 ; 


7000  CDCCBB 590 rout: call rechor 
600 ;--* SAUVEGARDE DE L'ORIGINE *-- 


7003 ED53E970 610 ld  (orgx),de 
7007 22EB70 620 1d (orgy),h1l 
630 ;--* ORIGINE = POINT DEPART *-- 
700A EDSBED70 640 ld de, (depx) 
700E  2AEF70 650 ld hl,(depy) 
7011 CDC9BB 660 call origin 
670 ;--* CONVERSION ANGLE EN FLO *-- 
7014 2AE770 680 id hl,(ang) 
7017 110571 690 ld de,stol 
701A D5 700 push de 
701B CD64BD 710 call entflo 
JOIE El 720 pop hl 
701F 110A71 730 ld de,sto2 
7022 010500 740 ld bc,5 
7025  EDBO 750 idir 
760 ;--* CHOIX UNITE DEGRES *-- 
7027 3EFF 770 1d a,255 
7029 3213B1 780 1d  (degres),a 
790 ;--* CONVERSION COTES EN FLO *-- 
702C 21F170 800 1d hl,cotlco 
702F 11F670 810 ld de,cotisi 
7032 CDC770 820 call conv 
7035 21FB70 830 id hl,cot2co 
7038 110071 840 ld de,cot2si 
703B CDC770 850 call conv 
860 ;--* CALCUL DE cotl * COSIN *-- 
703E 210571 870 id hl,stol 
7041 CDAFBD 880 call cosin 


7044 11F170 890 id de,cotlco 
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7047 EB 900 ex  de,hl 
7048  CD85BD 910 call multip 
920 ;--* CALCUL DE cot2 * COSIN *-- 
704B 21FB70 930 id hl,cot2co 
7O4E 110571 940 1d de,stol 
7051 CD85BD 950 call multip 
960 ;--* CALCUL DE cotl * SINUS *-- 

7054 210A71 970 id hl,sto2 
7057  CDACBD 980 call sinus 
705A 11F670 990 ld de,cotlsi 
705D EB 1000 ex  de,hl 
705E CD85BD 1010 call multip 

1020 ;--* CALCUL DE cot2 * SINUS *-- 
7061 210071 1030 id hl,cot2si 
7064 11071 1040 ld de,sto2 
7067  CD85BD 1050 call multip 

1060 ;--* CONVERSION COORD. EN ENTIER *-- 
706A 21F170 1070 id hl,cotlco 
706D CDD170 1080 call ent 
7070 21F670 1090 ld hl,cotlsi 
7073 CDD170 1100 call ent 
7076 21FB70 1110 id hl,cot2co 
7079 CDD170 1120 call ent 
707C 210071 1130 id hl,cot2si 
707F  CDD170 1140 call ent 

1150 ;--* TRACAGE POINT DE DEPART *-- 
7082 110000 1160 ld de,0 
7085 210000 1170 ld h1,0 

1180 ;--* TRACAGE DES COTES *-- 
7088 CDEABB 1190 call tracpi 
7088 ED5BF170 1200 1d de,(cotlco) 
708F  2AF670 1210 1d hl,(cotlsi) 
7092  CDF9BB 1220 call tracdr 
7095 2A0071 1230 id hl,(cot2si) 
7098  CDDF 70 1240 call negat 
7098 ED5BFB70 1250 1d de,(cot2co) 
709F EB 1260 ex  de,hl 
70A0  CDF9BB 1270 call tracdr 
70A3 2AF170 1280 1d hl,(cotlco) 
70A6  CDDF 70 1290 call negat 
70A9 EB 1300 ex  de,hl 
70AA  2AF670 1310 ld hl,(cotlsi) 
70AD  CDDF 70 1320 call negat 
7080  CDF9BB 1330 call tracdr 
70B3 110000 1340 ld de,0 
70B6 210000 1350 ld h1l,0 
70B9 CDF6BB 1360 call tracd2 


1370 ;--* REMISE ORIGINE INITIALE *-- 
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70BC 
70C0 
70C3 
70C6 


70C7 
70C9 
7OCC 
70CD 
70D0 


70D] 
70D4 
70D5 
70D8 
70D9 
70DB 
7O0DE 


70DF 
70E0 
70E1 
70E2 
70E3 
70E4 
70E5 
70E6 


70E7 
70E9 
70EB 
70ED 
70EF 
70F1 
70F6 
70FB 
7100 
7105 
710A 


ED5BE970 
2AEB70 
CDC9BB 
C9 


3E00 
CD67BD 
EB 
CD61BD 
C9 


CD94BD 
F5 
CD6DBD 
F1 
FEO2 
D4DF 70 
C9 


7C 
2F 
67 
70 
2F 
6F 
23 
C9 


1380 
1390 
1400 
1410 


1420 ; 


1430 
1440 
1450 
1460 
1470 
1480 


1490 ; 


1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 


1580 ; 


1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 


1680 ; 


1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
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ld de,(orgx) 

id hl,(orgy) 

call origin 

ret 
’ 
;--* cot EN FLO DANS cotsi ET cotco *-- 
conv: Id a,0 

call entfl2 

ex  de,hl 

call copie 

ret 
, 
;--* CONVERSION EN ENTIER *-- 
ent: call signe 

push af 

call floent 

pop af 

Cp. 2 

call nc,negat 

ret 
’ 
;--* NEGATION D'UN ENTIER *-- 
negat: Id a,h 


cpl 

ld' h,a 

ld a,1 

cpl 

ld ]l,a 

inc hl1l 

ret 
ang: defs 2 ; STOCK ANGLE 
orgx: defs 2 ; STOCK ORIGINE X 
orgy: defs 2 ; STOCK ORIGINE Y 
depx: defs 2 ;COORD. DEPART X 
depy:  defs 2 ; COORD. DEPART Y 
cotlco: defs 5 ;COTE 1 * COSINUS 
cotisi: defs 5 ;COTE 1 * SINUS 
cot2co: defs 5 ;COTE 2 * COSINUS 
cot2si: defs 5 ;COTE 2 * SINUS 
stol: defs 5 ; ZONE DE CALCUL 
sto2: defs 5 ; ZONE DE CALCUL 
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Pass 2 errors: O0 


ang 70E7 
cosin BDAF 
cot2co 70FB 
depx  7O0ED 
entf12 BD67 
floent BD6D 
nom 6FE3 
origin BBC9 
TSX BCD1 
space 6FED 
tracd2 BBF6 


Table used: 





conv 
cotlco 
cot2si 
depy 
entflo 
multip 
orgx 
rechor 
signe 
stol 
tracdr 


70C7 
70F1 
7100 
7OEF 
BD64 
BD85 
70E9 
BBCC 
BD94 
7105 
BBF9 


405 from 
Executes: 28576 


copie 
cotlsi 
degres 
ent 
ext 
negat 
orgy 
rout 
sinus 
sto2 
tracpi 


900 


BDé1 
70F6 
B113 
70OD1 
6FAA 
70ODF 
70EB 
7000 
BDAC 
710A 
BBEA 
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TRACÉ DE CERCLE 


Fonction : tracé d'un cercle de rayon quelconque. 


Nous vous proposons maintenant une routine permettant de tracer des cercles pour 
lesquels seront précisées la valeur du rayon et la position du centre. 


Si nous appelons le rayon RAY, les coordonnées X et Y du cercle par rapport à son 
centre sont : X = RAY x COS a et Y = RAY x SIN a avec a variant de 0 à 360 degrés. 


Pour tracer le cercle, il suffit alors de faire varier a de 0 à 360 et de calculer X et Y pour 
chaque valeur de a. Cette méthode possède l'inconvénient d'être très longue à 
exécuter car les calculs devant s'effectuer en flottant, il est nécessaire de convertir 
l'angle et le rayon dans ce système ; puis il faudra faire les calculs et reconvertir les 
résultats en entier, et ce 360 fois. 


Une manière de gagner du temps consiste à utiliser la symétrie du cercle par rapport à 
l'axe horizontal. De fait, il suffit alors de calculer les coordonnées du cercle pour a 
allant de 0 à 180 degrés. Puis, pour chaque valeur de X, on détermine Y. On trace le 
point de coordonnées X,Y. On calcule alors — Y par simple négation, ce qui permet de 
tracer le point de coordonnées X, —Y qui est le symétrique du point précédent par 
rapport à l'axe horizontal. 


Il n'y a dans ce cas que 180 calculs à effectuer, soit la moitié de la méthode initiale. 


Syntaxe : I(CERCLE,X,Y,R 


avec X : coordonnée X du centre du cercle. 
X compris entre O et 639 
Y : coordonné Y du centre du cercle. 
Y compris entre O et 399. 
R : valeur du rayon. 


Seuls les points inscrits à l'intérieur de la fenêtre graphique, si celle-ci est définie, 
seront affichés à l'écran. 


Routines système utilisées 


Après les adresses pour le CPC 6128 suivent entre parenthèses les adresses pour le 
CPC 464. 


#BD64 (#BD40) : conversion ENTIER en FLOTTANT. 
#BD6A (#BD46) : conversion FLOTTANT en ENTIER. 
#BD85 (#BD61) : multiplication en FLOTTANT. 

#BD94 (#BD70) : test du signe d'un nombre en FLOTTANT. 
#BDAC (#BD88) : calcul du sinus d'un angle. 

#BDAF (#BD8B) : calcul du cosinus d'un angle. 


#B113 (#B8F7) : pointeur indicateur de l'unité d'angle. 


#BBC9 : positionnement de l'origine. 
#BBCC : recherche de l'origine en cours. 
#BBEA : tracé d'un point. 
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Explications 


Après le stockage des paramètres dans CENTX et CENTY pour les coordonnées du 
centre du cercle et dans RAY pour la valeur du rayon, la routine commence par la 
sauvegarde de l'origine en cours ; puis mise de la nouvelle origine au centre de cercle. 


Le rayon est alors converti en flottant à l'adresse STO. Les degrés sont choisis comme 
unités d'angle en mettant la valeur 255 dans le pointeur #B113. L'angle est initialisé à 
0 dans ANG, qui servira aussi comme compteur pour aller de 0 à 180. 


Commence alors le calcul des coordonnées du cercle par la conversion en flottant de 
la valeur de l'angle. Ceci se fait dans les zones CAL1 et CAL2 qui contiendront par la 
suite le résultat des calculs des coordonnées. 


La valeur de X est calculée par la multiplication du cosinus de l'angle par le rayon 
contenu dans STO. Le signe du résultat est testé grâce à #BD94 afin d'être rétabli 
après la conversion en entier. CAL1 contient alors la coordonnée X signée en entier. 


La détermination de la coordonnée Y se fait de la même manière, le résultat étant 
stocké dans CAL2. 


La négation pour la conversion en entier, et par la suite pour le calcul de — Y, 
s'effectue grâce au sous-programme NEGAT qui utilise le complément à 2 du nombre 
se trouvant dans le registre HL. 


La routine trace alors le point de coordonnée CAL1, CAL2 par l'emploi de #BBEA. Les 
coordonnées du symétrique de ce dernier point par rapport à l'axe horizontal sont 
calculées par la négation de la valeur Y contenue dans CAL2. Le point est ensuite 
tracé. 


La valeur de l'angle contenue dans ANG est incrémentée de 1 et comparée à 181 afin 
de savoir si tous les points ont été tracés. Si ce n'est le cas, la procédure reprend les 
calculs jusqu'à ce que ANG atteigne la valeur 181. 


La remise en place de l'origine initiale conclut la routine. 


Démonstration 


Le programme de démonstration utilise l'extension BASIC pour dessiner une corne 
obtenue par diminution progressive du rayon, accompagnée du déplacement du 
centre du cercle selon une courbe demi-elliptique. 


10 MODE 2 

20 FOR 1=0 TO 100 STEP 2 
30|CERCLE,100+5x1,200—(1/5—10)°2,100—| 
40 NEXT 


Nous aurions pu également tracer un cercle avec un affichage beaucoun plus rapide 
en utilisant plus encore les propriétés de symétrie des valeurs du cercle trigonométri- 
que. En effet, les axes X et Y apportent quelques symétries qui permettraient de 
réduire les calculs de SIN et COS à 45 degrés. Ceci pourrait constituer un excellent 
exercice. 
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Routine de tracé de cercle 


Légende : 








0 — chiffre zéro 


® — lettre (pour « OUI ») ACQUERIR 
N — lettre (pour « NON ») PARAMETRES 
TRAITEMENT 
ORIGINE 


CONVERSION 
RAYON EN 
FLOTTANT 


___ _ J CENTRE (XY) 
et RAYON 










UNITE 
D'ANGLE 
EN DEGRES 






CONVERSION 
ANGLE EN 
FLOTTANT 











RAY X COS 
et RAY X SIN 
en ENTIER 







TRACAGE 
(X;Y) 







TRACAGE 
(X,—Y) 











ANGLE = 
ANGLE +1 








RETABLIR 
ORIGINE 
INITIALE 






GRAPHISMES 


Hisoft GENA3.1 Assembler. 


Pass 1 errors: O0 


10 ;=* ROUTINE CERCLE CPC 6128 *-= 


20 ; 
6F AO 30 ent #6fa0 
6FAO 40 org #6fa0 
50 ; 
60 ;--* TRAITEMENT RSX *-- 
70 ; 
BCDI 80 rsx: equ #bcdl 
6éFAO O1AA6F 90 id bc,ext 
6FA3 21D56F 100 ld hl,space 
6FA6  CDD1BC 110 call rsx 
6FA9 C9 120 ret 
6éFAA CE6F 130 ext: defw nom 
140 ;--* RECUPERATIONS DES PARAMETRES *#-- 
6FAC DD4601 150 1d b,(ix+l) 
6FAF  DD4E00 160 1d c,(ix+0) 
6FB2 ED439A70 170 ld  (ray),bc 
6FB6 DD5603 180 ld d,(ix+3) 
6FB9  DD5E02 190 ld e,(ix+2) 
6FBC ED53B370 200 ld  (centy),de 
6FCO DD6605 210 ld h,(ix+5) 
6FC3 DD6EO4 220 ld 1,(ix+4) 
6FC6é 22B170 230 ld (centx),hl 
éFC9 FEO3 240 Cp 3 
6FCB CO 250 ret nz 
6FCC 1832 260 jr  rout 
270 ; 
6FCE 43455243 280 nom: defm "CERCL" 
6FD3 C5 290 defb "E'+180 
6FD4 00 300 defb 0 
6FD5 310 space: defs 4 
320 ; 
330 ;--* TRAITEMENT CALL *-- 
340 ; 
7000 350 org #7000 
360 ; 
BBCC 370 rechor: equ #bbcc 
BBC9 380 origin: equ #bbc9 
BD64 390 entflo: equ ‘#bdé4 
BDAC 400 sinus: equ #bdac 
BDAF 410 cosin: equ #bdaf 
BD85 420 multip: equ #bd85 
BD94 430 signe: equ #bd94 
BD6A 440 floent: equ #bdéa 


BBEA 450 tracpi: equ #bbea 


B113 


7000 


7003 
7007 


700A 
70O0E 
7011 


7014 
7017 
701A 


7010 
701F 


7022 
7025 


7029 
7O2C 
702F 
7032 
7035 
7038 


703A 
7030 


7040 
7043 


7046 
7049 


704A 
704D 
7O4E 
7050 
7053 


7056 
7059 


705C 
705F 


CDCCBB 


ED53AB70 
22AD70 


ED5BB1 70 
2AB370 
CDC9BB 


2A9A70 
11A670 
CD64BD 


3EFF 
321381 


110000 
ED53AF 70 


2AAF70 
119C70 
CD64BD 
11A170 
010500 
EDBO 


219070 
CDAFBD 


11A670 
CD85BD 


CD94BD 
ES 


CD6ABD 
F1 
FEO2 
D49270 
229C70 


21A170 
CDACBD 


11A670 
CD85B0 
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460 degres: equ #b113 

470 ; 

480 rout: call rechor 

490 ;--* SAUVEGARDE DE L'ORIGINE *-- 
500 1d (orgx),de 

510 1d (orgy),hl 

520 ;--* ORIGINE = CENTRE CERCLE *-- 
530 id de,(centx) 

540 id hl,(centy) 

550 call origin 

560 ;--* CONVERSION RAYON EN FLO *-- 
570 id hl,(ray) 

580 id de,sto 

590 call entflo 

600 ;--* CHOIX UNITES DEGRES *-- 

610 ld a,255 

620 id  (degres),a 

630 ;--* INITIAL. DE L'ANGLE A O *-- 
640 ld de,0 

650 ld (ang) ,de 

660 ;--* CONVERSION ANGLE EN FLO *-- 
670 debut: Id hl,(ang) 

680 ld de,call 

690 call entflo 

700 ld de,cal2 

710 ld:: -bc,;5 

720 ldir 

730 ;--#* CALCUL DU COSINUS *-- 

740 ld hl,call 

750 call cosin 

760 ;--* MULTIP. RAYON * COSINUS *-- 
770 ld de,sto 

780 call multip 

790 ;--* TEST SIGNE DU RESULTAT *-- 
800 call signe 

810 push af 

820 ;--* CONVERSION EN ENTIER *#-- 
830 call floent 

840 pop af 

850 cp 2 

860 call nc,negat 

870 suite: Id  (call),hl 

880 ;--* CALCUL DU SINUS *-- 

890 ld hl,cal2 

900 call sinus 

910 ;--* MULTIP. RAYON * SINUS *-- 
920 id de,sto 

930 call multip 


940 


;--* CONVERSION EN ENTIER *-- 
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7062 CD6ABD 950 call floent 
960 ;--* TRACAGE DE (X,Y) *-- 
7065 22A170 970 ld (cal2),hl 
7068 ED5B9C70 980 1d de,(call) 
706C D5 990 push de 
706D E5 1000 push hl 
706E CDEABB 1010 call tracpi 
7071 El 1020 pop hl 
7072 DI 1030 pop de 
1040 ;--* CALCUL DE - Y *-- 
7073 CD9270 1050 call negat 
1060 ;--* TRACAGE DE (X,-Y) *-- 
7076 CDEABB 1070 call tracpi 
1080 ;--* INCREMENTATION ET TEST ANGLE *-- 
7079 2AAF70 1090 ld hl,(ang) 
707C 23 1100 inc hl 
707D 22AF70 1110 1d (ang),hl 
7080 11B500 1120 ld de,181 
7083 ED52 1130 sbc hl,de 
7085 20A2 1140 jr  nz,debut 
1150 ;--* REMISE ORIGINE INITIALE *-- 
7087 EDS5BAB70 1160 ld de,(orgx) 
708B Z2AAD70 1170 id hl,(orgy) 
708E  CDC9BB 1180 call origin 
7091 C9 1190 ret 
1200 ; 
1210 ; --* NEGATION D'UN ENTIER *-- 
7092 7C 1220 negat: Id a,h 
7093 2F 1230 cpl 
7094 67 1240 ld h,a 
7095 7D 1250 ld _a,1l 
7096 2F 1260 cpl 
7097 6F 1270 ld 1,a 
7098 23 1280 inc hl 
7099 C9 1290 ret 
1300 ; 
709A 1310 ray: defs 2 ; STOCKAGE RAYON 
709C 1320 call: defs 5 ;ZONE DE CALCUL 
70A1 1330 cal2: defs 5 ; ZONE DE CALCUL 
70A6 1340 sto: defs 5 ; STOCK RAY FLO 
70AB 1350 orgx: defs 2 ; STOCK ORIGINE X 
7OAD 1360 orgy: defs 2 ; STOCK ORIGINE Y 
7OAF 1370 ang: defs 2 ; STOCKAGE ANGLE 
70B1 1380 centx: defs 2 ; CENTRE X CERCLE 
70B3 1390 centy: defs 2 ; CENTRE Y CERCLE 
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Pass 2 errors: 00 


ang 7OAF call 709C cal2 7OAl 
centx 70B1 centy 70B3 cosin BDAF 
debut 7029 degres B113 entflo BD64 
ext 6FAA floent BD6A multip BD85 
negat 7092 nom 6FCE orgx  70AB 
orgy  7/OAD origin BBC9 ray 709A 
rechor BBCC rout 7000 rsx BCDI 
signe BD94 sinus BDAC space 6FD5 
sto 7016 suite 7053 tracpi BBEA 


Table used: 327 from 900 
Executes: 28576 
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TRACÉ D'ELLIPSE (avec orientation) 


Fonction : tracé d'une ellipse. 


Après le cercle, la logique impose de passer aux ellipses. En effet, une ellipse n'est 
qu'un cercle déformé. Rappelons nous; les coordonnées d'un cercle sont obtenues 
par les formules : X = RAYON x COS cet Y = RAYON x SIN c (c variant de O à 360). 
Pour l'ellipse, il suffit de fixer les valeurs A et B des deux demi-axes perpendiculaires. 
Les formules deviennent alors : X = À x COS cet Y = B x SIN c, c variant toujours de 
0 à 360. 


En fonction de cela, nous aurions pu reprendre la routine de cercle et modifier le calcul 
des coordonnées en remplaçant RAY par A ou B selon le cas, le reste étant identique. 
Nous avons préféré, plutôt que de réécrire une routine pratiquement semblable à la 
précédente, inclure la possibilité de tracer des ellipses faisant un angle b avec 
l'horizontale, c'est-à-dire pouvoir orienter celles-ci dans le plan. 


Pour cela, il sera nécessaire de fournir à la routine, outre les paramètres courants, 
coordonnées du centre et valeurs des deux demi-axes, un paramètre supplémentaire 
fixant l'angle du premier demi-axe avec l'horizontale. 


Celui-ci sera facultatif, avec mise par défaut à 0, ce qui trace des ellipses dont les axes 
sont parallèles aux bords de l'écran. 


Le calcul des coordonnées s'effectuera d'abord, pour chaque valeur de c (de 0 à 360), 
sans tenir compte de l'orientation désirée de l'ellipse. En effet, l'ellipse orientée d'un 
angle a correspond à une ellipse aux axes parallèles aux bords de l'écran, qui aurait 
pivoté autour de son centre, et ce, d'un angle de rotation d'une valeur a, ce qui veut 
dire que tous ses points auraient pivoté du même angle. 


Si X1 et Y1 sont les coordonnées d'un point dans un repère donné, X et YŸ les 
coordonnées de ce même point dans un nouveau repère ayant effectué une rotation 
ROT par rapport à l'ancien, alors : X = X1 COS ROT + Y1 SIN ROT et Y = X1 SIN 
ROT — Y1 COS ROT. Après avoir calculé chaque point de l'ellipse non orientée, nous 
appliquerons ces formules pour obtenir les coordonnées finales. 


Syntaxe : ELLIPSE,X,Y,A.B,[a] 


avec X : coordonnée X du centre de l'ellipse. 
X compris entre O et 639. 
Y : coordonnée Ÿ du centre de l'ellipse. 
Y compris entre O et 399. 
A : longueur du premier demi-axe. 
B : longueur du deuxième demi-axe. 


fe 


: angle d'inclinaison de l’ellipse par rapport à l'horizontale, à droite du centre et 
vers le haut (0 par défaut). 
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Routines système utilisées 


Entre parenthèses, vous trouverez les adresses relatives au CPC 464, les premières 
étant valables pour le CPC 6128. 


#BD61 (#BD3D) : copie nombre en FLOTTANT. 

#BD64 (#BD40) : conversion ENTIER en FLOTTANT. 
#BD6A (#BD46) : conversion FLOTTANT en ENTIER. 
#BD7C (#BD58) : addition en FLOTTANT. 

#BD82 (#BD5B) : soustraction en FLOTTANT. 

#BD85 (#BD61) : multiplication en FLOTTANT. 

#BD94 (#BD70) : test du signe d'un nombre en FLOTTANT. 
#BDAC (#BD88) : calcul du sinus d'un angle. 

#BDAF (#BD8B) : calcul du cosinus d'un angle. 


#B113 (#B8F7) : pointeur indicateur de l'unité d'angle. 


#BBC9 : positionnement de l'origine. 
#BBCC : recherche de l'origine en cours. 
#BBEA : tracé d'un point. 


Explications 


La routine débute par le stockage des paramètres : dans CENTX et CENTY pour les 
coordonnées du centre de l'ellipse, dans AXE1 et AXE2 pour les demi-axes, et enfin 
dans ROT pour l'angle d'inclinaison si celui-ci est défini. 


On effectue ensuite la recherche de l'origine en cours, sa sauvegarde dans ORGX et 
ORGY et le positionnement de la nouvelle origine au centre de l'ellipse. 


L'unité d'angle choisie sera le degré par la mise de 255 dans le pointeur #B113. 
L'angle de rotation est alors converti en flottant dans les zones ROTCOS et ROTSIN, 
puis dans ces mêmes zones sont placées les valeurs de son cosinus et de son sinus. 
(Pour le CPC 464, rajouter XOR A avant les deux CALL ENTFLO.) Les deux axes sont 
à leur tour convertis en flottant dans STO1 et STO2 avant que l'angle soit initialisé à O 
dans ANG. 


La routine démarre alors véritablement par la conversion de l'angle en flottant. Cette 
valeur est stockée dans CAL1 et CAL2 qui seront en fait des zones de calculs. On 
cherche ensuite les coordonnées (X1 et Y1) de l'ellipse non orientée par la 
multiplication de AXE1 par le cosinus de l'angle et par celle de AXE2 par le sinus. X1 
sera conservé dans CAL1 et CAL3, Y1 dans CAL2 et CALA. 


Pour calculer les coordonnées X et Y de l'ellipse ayant effectuée une rotation d'un 
angle ROT, il suffit alors d'appliquer les formules vues précédemment. X et Y sont 
convertis en entier par le même type de sous-programme déjà utilisé dans la routine 
CERCLE qui fait appel à un autre sous-programme permettant le calcul de la négation 
d'un nombre. 


Le point est donc tracé en X,Y par la routine #BBEA. L'angle est incrémenté de 1 et 
stocké à nouveau dans ANG, puis il est soustrait à 361 afin de vérifier si tous les points 
ont bien été tracés. Dans le cas contraire, l'exécution reprend jusqu'à ce que l'angle 
atteigne la valeur 361. 
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Noter la présence de l'instruction JR NZ,PONT pour le branchement au début de la 
routine de calcul des coordonnées. || aurait fallu écrire JR NZ,DEBUT, mais comme il y 
a plus de 126 octets entre l'instruction et l'emplacement du branchement, cela est 
impossible. Plutôt que d'utiliser l'instruction JP NZ, DEBUT, qui si elle effectue le 
même travail ne permet pas de reloger la routine, nous avons préféré placer un relais, 
appelé PONT, qui ramène à DEBUT mais en deux étapes. 


La routine se termine par la remise de l'origine initiale. 


Démonstration 


Nous vous proposons deux programmes de démonstration utilisant chacun cette 
routine sous forme d'extension du BASIC. 


Le premier utilise le tracé d'une série d'ellipses non orientées permettant d'obtenir 
finalement un cône. Pour cela, il faut jouer sur la position du centre des ellipses et faire 
varier chacun des deux axes, le premier augmentant au fur et à mesure que le 
deuxième diminue. 

10 MODE 2 

20 FOR 1=0 TO 45 

80 |ELLIPSE,100+5x1,190-3x1,80+4x1,190—-4xl 

40 NEXT 


Le deuxième programme utilise l'option orientation : 


10 MODE 2 

20 FOR 1=0 TO 90 STEP 10 
80 'ELLIPSE,320,200,180,80 i 
40 NEXT 
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Routine de tracé d'’ellipse orientable 


ACQUERIR 
PARAMETRES 
TRAITEMENT 
ORIGINE 


UNITE 
D'ANGLE 
EN DEGRES 


CONVERSION 
EN FLOTTANT 


CALCUL DE 
SIN ROTATION 
ET COS ROTATION 


Légende : 








0 — chiffre zéro 
O — lettre (pour « OUI ») 
N — lettre (pour « NON ») 











CALCUL 
ANCIENNES 
COORDONNEES 









CALCUL 
NOUVELLES 
COORDONNEES 


TRACAGE 
CCY) 












RETABLIR ANGLE = 
ORIGINE ANGLE +1 


INITIALE 
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Hisoft GENA3.1 Assembler. 


Pass l errors: 00 


10 ;=* ROUTINE ELLIPSE CPC 6128 *-= 


20 ; 
6F 90 30 ent #6F90 
6F90 40 org #6f90 
50 ; 
60 ;--* TRAITEMENT RSX *-- 
70 ; 
BCDI 80 rsx: equ #bcdl 
6F90 O19A6F 90 ld bc,ext 
6F93 21EA6F 100 ld hl,space 
6F96 CDDIBC 110 call rsx 
6F99 C9 120 ret 
6F9A E26F 130 ext: defw nom 


140 ;--* RECUPERATION DES PARAMETRES *-- 
150 ;--* TEST SI 5 PARAMETRES *-- 


6F9C FEO5 160 cp 5 
6F9E 2010 170 jr nz,pl 
6FAO DD4601 180 1d b,(ix+1) 
6FA3 DD4E00 190 1d c,(ix+0) 
6FA6 ED432A71 200 1d  (rot),bc 
6FAA  DD23 210 inc ix 
6FAC DD23 220 inc ix 
6FAE 1808 230 jr p2 

240 ;--* TEST SI 4 PARAMETRES *-- 
6FBO FEO4 250 pl: cp 4 
6FB2 CO 260 ret nz 
6FB3 212A71 270 id hl,rot 
6FB6 3600 280 ld (h1),0 
6FB8 DD5605 290 p2: 1d d,(ix+5) 
6FBB DD5E04 300 1d e,(ix+4) 
6FBE  DD4607 310 id b,(ix+7) 
6FC1 DD4E06 320 1d c,(ix+6) 
6FC4 ED532871 330 1d  (centy),de 
6FC8 ED432671 340 1d (centx),bc 
6FCC DD5601 350 1d d,(ix+1) 
6FCF  DD5E00 360 1d e,(ix+0) 
6FD2 DD4603 370 ld b,(ix+3) 
6FD5 DD4E02 380 ld c,(ix+2) 
6FD8 ED43FE70 390 1d (axel),bc 
6FDC ED530071 400 ld (axe2),de 
6FEO 181F 410 jr rout 

420 ; 
6FE2 454C4C49 430 nom: defm "ELLIPS" 
6FE8 C5 440 defb "E"+#80 
6FE9 O0 450 defb 0 


6FEA 460 space: defs 4 
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470 ; 

480 ; 

490 ;--* TRAITEMENT CALL *-- 

500 ; 
7000 510 org #7000 

520 ; 
BBCC 530 rechor: equ #bbcc 
BBC9 540 origin: equ #bbc9 
BDé1 550 copie: equ #bdél 
BD64 560 entflo: equ #bdé64 
BDAF 570 cosin: equ #bdaf 
BDAC 580 sinus: equ #bdac 
BD7C 590 additi: equ #bd7c 
BD82 600 soustr: equ #bd82 
BD85 610 multip: equ #bd85 
BD94 620 signe: equ #bd94 
BD6A 630 floent: equ #bdéa 
BBEA 640 tracpi: equ #bbea 
B113 650 degres: equ #b113 

660 ; 


670 ;--* RECHERCHE ET SAUVEGARDE ORIGINE *-- 
7000  COCCBB 680 rout: call rechor 





7003 ED532071 690 1d (orgx),de 
7007 222271 700 : 1d (orgy),hl 
710 ;--* ORIGINE = CENTRE ELLIPSE *-- 
700A ED5B2671 720 ld de, (centx) 
700E 2A2871 730 ld h1l,(centy) 
7011 CDC9BB . 740 call origin 
750 ;--* CHOIX UNITE DEGRES *-- 
7014 3EFF 760 1d a,255 
7016 3213B1 770 1d (degres),a 
780 ;--* CONVERSION ROT EN FLO *-- 
7019 2A2A71 790 ld hl,(rot) 
701C E5 800 push hl 
701D 113171 810 ld de,rotsin 
7020 AF 820 XOT à 
7021 CD64BD 830 call entflo 
7024 El 840 pop hl 
7025 112071 850 id de,rotcos 
7028 AF 860 XOT a 
7029 CD64BD 870 call entflo 
880 ;--* CALCUL DU SIN ET COS DE ROT *-- 
702C 213171 890 id hl,rotsin 
702F  CDACBD 900 call sinus 
7032 212C71 910 ld hl,rotcos 
7035  CDAFBD 920 call cosin 
930 ;--* CONVERSION AXEL ET AXE2 EN FLO *-- 
7038 2AFE70 940 ld hl,(axel) 


703B 111671 950 ld de,stol 
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703E CD64BD 960 call entflo 
7041 2A0071 970 ld hl,(axe2) 
7044 111B71 980 ld  de,sto2 
7047 CD64BD 990 call entflo 
1000 ;--* INITIAL. ANGLE A O *-- 
704A 110000 1010 ld de,0 
7040 ED532471 1020 ld (ang) ,de 
1030 ;--* CONVERSION ANGLE EN FLO *-- 
7051 3E00 1040 debut: 1ld a,0 
7053 2A2471 1050 1d hl,(ang) 
7056 110271 1060 ld de,call 
7059 CD64BD 1070 call entflo 
705C 110771 1080 ld de,cal2 
705F 010500 1090 id bc,5 
7062  EDBO 1100 lidir 
1110 ;--* CALCUL DE X1 = COS ANG * AXEL *-- 
1120 ;--* dans call et cal3 *__ 
7064 210271 1130 id hl,call 
7067 CDAFBD 1140 call cosin 
706A 111671 1150 ld de,stol 
706D CD85BD 1160 call multip 
7070 110C71 1170 ld de,cal3 
7073 EB 1180 ex de,hl 
7074  CD61BD 1190 call copie 
7077 1802 1200 jr al 
1210 
7079 18D6 1220 pont: jr debut 
1230 ;--* CALCUL DE Y1 = SIN ANG * AXE2 *-- 
1240 ;--* dans cal? et cal4 LE 
707B 210771 1250 al: ld hl,cal2 
707E  CDACBD 1260 call sinus 
7081 111B71 1270 ld de,sto2 
7084  CD85BD 1280 call multip 
7087 111171 1290 ld de,cal4 
708A EB 1300 ex  de,hl 
708B CD61BD 1310 call copie 
1320 ;--* CALCUL DE XI * COS ROT *-- 
708E 210271 1330 ld hl,call 
7091 112C71 1340 ld de,rotcos 
7094  CD85BD 1350 call multip 
1360 ;--* CALCUL DE X1 * SIN ROT *-- 
7097 210C71 1370 ld hl,cal3 
709A 113171 1380 ld de,rotsin 
7090 CD85BD 1390 call multip 
1400 ;--* CALCUL DE Y1 * SIN ROT *-- 
70A0 210771 1410 ld hl,cal2 
70A3 113171 1420 1d de,rotsin 
70A6 CD85BD 1430 call multip 


x* 


1440 ;--* CALCUL DE Y1 * COS ROT 
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70A9 211171 1450 id hl,cal4 
7OAC 112C71 1460 ld de,rotcos 
70AF  CD85BD 1470 call multip 

1480 ;--* CALCUL DE X *-- 
70B2 210271 1490 id hl,call 
70B5 110771 1500 ld de,cal2 
70B8 CD7CBD 1510 call additi 
70BB CDE870 1520 call conver 
J0OBE E5 1530 push h1l 

1540 ;--* CALCUL DE Y *-- 
70BF 210C71 1550 ld hl,cal3 
70C2 111171 1560 ld de,cal4 
70C5 CD82BD 1570 call soustr 
70C8 CDE870 1580 call conver 

1590 ;--* TRACAGE DE (X,Y) *-- 
70CB D1 1600 pop de 
70CC CDEABB 1610 call tracpi 

1620 ;--* INCREMENTATION ET TEST ANGLE *-- 
7OCF 2A2471 1630 ld hl,(ang) 
70D2 23 1640 inc hl 
7003 222471 1650 ld  (ang),hl 
70D6 116901 1660 ld de,361 
7009  ED52 1670 sbc hl,de 
70DB  209C 1680 jr nz,pont 

1690 ;--* REMISE ORIGINE INITIALE *-- 
70DD ED5B2071 1700 ld de,(orgx) 
70E1 2A2271 1710 ld hl,(orgy) 
70E4 CDC9BB 1720 call origin 
70E7 C9 1730 ret 

1740 ; 


1750 ;--* CONVERSION EN ENTIER *-- 
70E8 CD94BD 1760 conver: call signe 


70EB F5 1770 push af 
70EC  CD6ABD 1780 call floent 
7OEF F1 1790 pop af 
70F0 FEO2 1800 cp 2 
70F2 D4F670 1810 call nc,negat 
70F5 C9 1820 ret 
1830 ; 
1840 ;--* NEGATION D'UN ENTIER *-- 
70F6 7C 1850 negat: Id a,h 
70F7 2F 1860 cpl 
70F8 67 1870 id h,a 
70F9 7D 1880 ld a,1l 
7OFA 2F 1890 cpl 
70FB 6F 1900 ld l,a 
70FC 23 1910 inc hl 
70FD C9 1920 ret 


1930 ; 


212 RSX ET ROUTINES ASSEMBLEUR SUR AMSTRAD CPC 





7OFE 1940 axel: defs 2 LONG. AXE 1 
7100 1950 axe2: defs 2 LONG. AXE 2 
7102 1960 call: defs 5 ;ZONE CALCUL 
7107 1970 cal2: defs 5 ; ZONE CALCUL 
710C 1980 cal3: defs 5 ; ZONE CALCUL 
7111 1990 cal4: defs 5 ; ZONE CALCUL 
7116 2000 stol: defs 5 ;AXE1 EN FLO 
711B 2010 sto2: defs 5 ;AXE2 EN FLO 
7120 2020 orgx:  defs 2 3ORIG. INIT,. X 
7122 2030 orgy: defs 2 ;ORIG. INIT. Y 
7124 2040 ang: defs 2 ; ZONE STOCK ANG 
7126 2050 centx: defs 2 ; CENTRE X ELLIPS 
7128 2060 centy: defs 2 ;CENTRE Y ELLIPS 
712A 2070 rot: defs 2 ;ANG DE ROTATION 
712C 2080 rotcos: defs 5 ;STOC DE COS ROT 
7131 2090 rotsin: defs 5 ;STOC DE SIN ROT 
Pass 2 errors: 00 

al 707B additi BD7C ang 7124 


axel 7OFE axe2 7100 call 7102 
cal2 7107 cal3 710C cal4 7111 
centx 7126 centy 7128 conver 70E8 
copie BD61 cosin BDAF debut 7051 
degres B113 entflo BD64 ext 6F9A 
floent BD6A multip BD85 negat 70F6 
nom 6éFE2 orgx 7120 orgy 7122 
origin BBC9 pl 6FBO  p2 6FB8 
pont 7079 rechor BBCC rot 712A 
rotcos 712C rotsin 7131 rout 7000 
Tsx BCD1 signe BD94 sinus BDAC 
soustr BD82 space 6FEA stol 7116 
sto2 7/11B tracpi BBEA 


Table used: 486 from 900 
Executes: 28560 
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TRACÉ DE POLYGONE RÉGULIER (avec orientation) 


Fonction : tracé d'un polygone régulier à n côtés. 


Dernier volet de cette série de figures géométriques, le polygone régulier. Mais avant, 
un peu de théorie. Un polygone régulier, c'est-à-dire possédant des côtés égaux, a la 
particularité de pouvoir être contenu dans un cercle, appelé cercle circonscrit, passant 
par tous les sommets de ce polygone. 


De plus, le nombre de sommets correspond au nombre de côtés ; et enfin, dernière 
particularité, l'angle au centre du polygone entre deux sommets consécutifs est obtenu 
par la division de 360 par le nombre de côtés. Nous l'appelerons, le PAS. 


Il devient donc facile de comprendre qu'il suffira de reprendre la routine de cercle, 
moyennant certaines adaptations, afin de pouvoir tracer ces polygones ; en effet les 
coordonnées des sommets sont des points appartenant au cercle. 


On commencera alors par placer le premier point du polygone qui pourrait être, par 
exemple, celui obtenu pour un angle de 0. On incrémente ensuite l'angle, de la valeur 
PAS, et on calcule les coordonnées du cercle correspondant à ce nouvel angle. Et 
ainsi de suite, jusqu'à ce que l'angle fasse 360 degrés. On aura recherché un nombre 
de points égal au nombre de côtés. Il ne restera plus qu'à faire se rejoindre tous ces 
points par des droites pour avoir le tracé du polygone. 


Seulement il est possible de formuler une petite remarque. En effet, avec cette 
méthode, le premier point obtenu est toujours placé horizontalement et à droite du 
centre du polygone; ainsi un pentagone (5 côtés) aura toujours un côté vertical à 
gauche du centre. On ne peut le faire pivoter. 


Il nous a donc paru important d'offrir la possibilité de placer le premier point du 
polygone avec un angle quelconque par rapport à l'horizontale. Cet angle sera fourni 
par le passage à la routine d'un paramètre facultatif suivant ceux, obligatoires, 
concernant le centre du cercle circonscrit et valeur du rayon de ce cercle. 


Dans ce cas, le premier sommet du polygone correspondra au point du cercle 
circonscrit, dont les coordonnées sont calculées pour l'angle de départ indiqué, s'il y a 
lieu, dans les paramètres. 


Le calcul des autres sommets reprend la méthode décrite plus haut en incrémentant 
l'angle de la valeur PAS puis en reliant tous les points obtenus par des droites. 


Syntaxe : |POLYGONE,N,X,Y,R,[A] 


avec N : nombre de côtés du polygone. 
X : coordonnée X du centre du cercle circonscrit. 
X compris entre O0 et 639. 
Y : coordonnée YŸ du centre du cercle circonscrit. 
Y compris entre O et 399. 
R : rayon du cercle circonscrit. 
A : angle au centre entre le premier sommet et l'horizontale. 
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Routines système utilisées 


Après les adresses pour le CPC 6128 suivent entre parenthèses les adresses pour le 
CPC 464. 


#BD61 (#BD3D) : copie d'un nombre en FLOTTANT. 
#BD64 (#BD40) : conversion ENTIER en FLOTTANT. 
#BD6A (#BD46) : conversion FLOTTANT en ENTIER. 
#BD7C (#BD58) : addition en FLOTTANT. 

#BD85 (#BD61) : multiplication en FLOTTANT. 

#BD88 (#BD64) : division en FLOTTANT. 

#BD94 (#BD70) : test du signe d'un nombre en FLOTTANT. 
#BDAC (#BD88) : calcul du sinus d'un angle. 

#BDAF (#BD8B) : calcul du cosinus d'un angle. 


#B113 (#B8F7) : pointeur indicateur de l'unité d'angle. 


#BBC9 : positionnement de l'origine. 
#BBCC : recherche de l'origine en cours. 
#BBEA : tracé d'un point. 

#BBF6 : tracé d'une droite. 


Explications 


Stockage du centre dans CENTX et CENTY pour les coordonnées du centre de 
l'ellipse ; stockage du rayon dans RAY pour la valeur du rayon du cercle circonscrit ; 
stockage du nombre de côtés dans COTENT et COMPTE ; puis stockage dans ANG 
de l'angle du point de départ, s'il est défini ; la routine commence par le traitement de 
l'origine. 

Le choix de l'unité d'angle est fait en mettant 255 dans le pointeur #B113. Le rayon est 
converti en flottant dans STO, le nombre de côtés dans COTENT et dans COMPTE, et 
le nombre 360 dans PAS afin de calculer celui-ci par division de 360 par le nombre de 
côtés. 

L'angle est ensuite initialisé en flottant. Dans le cas de la recherche des coordonnées 
du premier sommet, on passe directement au stockage de la valeur de l'angle dans 
STO1 et STO2 sans avoir ajouté le pas. 


STO1 est utilisé pour y placer le résultat de la multiplication du cosinus de l'angle par le 
rayon, alors que STO2 contiendra celui du sinus par le rayon. 


Ces deux multiplications sont faites par un sous-programme chargé également de la 
transformation des résultats en entier ; le cas des valeurs négatives sera traité selon la 
méthode du complément à deux, vue par exemple, dans la routine du cercle. STO1 et 
STO2 contiennent alors respectivement, l'abscisse et l'ordonnée des coordonnées du 
sommet. 


On vérifie qu'il s'agit du premier sommet en comparant le nombre de côtés, stocké 
dans COTENT, avec COMPTE. S'ils sont égaux, le premier sommet est tracé. 


Le compteur COMPTE est alors décrémenté de 1 et on le compare avec #FF pour 
savoir si le dernier côté a été atteint. Si ce n'est le cas, le branchement se fait au début 
des calculs où la valeur du pas est ajoutée à celle de l'angle en cours. 
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Les coordonnées du sommet suivant sont calculées et, au lieu de tracer ce sommet, 


on relie celui-ci à la dernière position par une droite, en faisant appel à la routine 
#BBF6. 


Et on recommence ainsi jusqu'à ce que le dernier côté soit tracé. La décrémentation 
du compteur le fait alors passer de O0 à #FF, ce qui permet à ce moment là, par 
comparaison avec cette valeur, de se brancher sur la fin de la routine; puis, on 
effectue la remise en place de l'origine initiale. 


Démonstration 


Le petit programme BASIC suivant, utilisant la routine comme extension, permet 
d'obtenir un effet intéressant : 

10 MODE 2 

20 FOR 1=0 TO 190 STEP 6 

830 |POLYGONE,6,320,200,1,I 

40 NEXT 


Cette fonction polygone possède également la particularité de pouvoir être utilisée 
pour le tracé des cercles. 


En effet, si le paramètre N indiquant le nombre de côtés est important, la figure tracée 
est pratiquement un cercle. Pour cela, il faut, pour un rayon assez grand, donner à N 
une valeur de l'ordre de 30. 


L'intérêt par rapport à la fonction CERCLE est d'obtenir un tracé beaucoup plus rapide, 
dans la mesure où seuls 30 calculs seront effectués au lieu de 180 : comme c'était le 
cas dans la routine vue précédemment. 


Par contre la qualité du tracé sera moindre. On pourra alors, selon l'objectif visé, 
utiliser pour les cercles l'une ou l'autre de ces deux routines. 
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Routine de tracé de polygone 


ACQUERIR 
PARAMETRES 
TRAITEMENT 

ORIGINE 


CONVERSION 
DONNEES 


NB DE COTE 

CENTRE (X,Y) 

mire RAYON cercle circonscrit 
Fe entre 1°’ point et horizontale 





passant par le centre 














EN 
FLOTTANT 





UNITE 
D'ANGLE 
EN DEGRES 


CALCUL 
DU PAS 


ANGLE = 
ANGLE + PAS 


CALCUL 
DES 
COORDONNEES 


PREMIER 
POINT 
(4) 


TRACAGE 
POINT DE 
DEPART 


TRACAGE 
DU COTE 
DERNIER 
COTE 

LC) 
RETABLIR 
ORIGINE 












Légende : 


O0 — chiffre zéro 
O — lettre (pour « OUI ») 
N — lettre (pour « NON ») 
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Hisoft GENA3.1 Assembler. 
Pass 1 errors: 00 


10 ;=* ROUTINE POLYGONE CPC 6128 *-= 


20 ; 
6F90 30 ent  #6f90 
6F90 40 org #6f90 
50 ; 
60 ;--* TRAITEMENT RSX #-- 
70 ; 
BCD1 80 rsx: equ #bcdl 
6F90 O19A6F 90 ld bc,ext 
6F93 21EE6F 100 ld hl,space 
6F96 CDDIBC 110 call rsx 
6F99 C9 120 ret 
6F9A E56F 130 ext: defw nom 


140 ;--* RECUPERATION DES PARAMETRES *-- 
150 ;--* TEST SI 5 PARAMETRES *-- 


6F9C FEO5 160 Cp 5 
6F9E 2010 170 ir nz,pl 
6FAO DD4601 180 id b,(ix+1) 
6FA3  DD4E00 190 ld c,(ix+0) 
6FA6 ED43DD70O 200 ld (ang) ,bc 
6FAA  DD23 210 inc ix 
6FAC DD23 220 inc ix 
6FAE 1808 230 jr p2 

240 ;--* TEST SI 4 PARAMETRES *-- 
6FBO FEO4 250 pl: cp 4 
6FB2 CO 260 ret nz 
6FB3 21D070 270 ld hl,ang 
6FB6 3600 280 ld (h1),0 
6FB8 DD4601 290 p2: ld b,(ix+1) 
6FBB  DD4E00 300 ld c,(ix+0) 
6FBE ED43F270 310 ld  (ray),bc 
6FC2 DD5603 320 ld d,(ix+3) 
6FC5 DD5EO2 330 1id e,(ix+2) 
6FC8 ED53E470 340 ld  (centy),de 
6FCC DD6605 350 ld h,(ix+5) 
6FCF  DD6E04 360 ld 1,(ix+4) 
6FD2 22E270 370 ld (centx),h1 
6FD5 DD4607 380 ld b,(ix+7) 
6FD8 DD4E06 390 ld c,(ix+6) 
6FDB ED43F070 400 ld (cotent),bc 
6FDF ED43F470 410 1d (compte) ,bc 
6FE3 181B 420 jr rout 

430 ; 
6FE5 504F4C59 440. nom: defm ‘"POLYGON" 


6FEC C5 450 defb "E'"+380 
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6FED O0 460 defb O 
6FEE 470 space: defs 4 
480 ; 
490 ; 
500 ;--* TRAITEMENT CALL *-- 
510 ; 
7000 520 org #7000 
530 ; 
BBCC 540 rechor: equ f#bbcc 
BBC9 550 origin: equ #bbc9 
BBEA 560 tracpi: equ #bbea 
BD64 570 entflo: equ #bd64 
BD88 580 divise: equ bd88 
BD7C 590 additi: equ #bd7c 
BD61 600 transf: equ #bdé6l 
BDAF 610 cosin: equ #bdaf 
BDAC 620 sinus: equ #bdac 
BBF6 630 tracot: equ #bbf6 
BD85 640 multip: equ #bd85 
BD94 650 signe: equ #bd94 
BD6A 660 floent: equ fbdé6a 
B113 670 degres: equ #b113 
680 ; 
7000 CDCCBB 690 rout: call rechor 
700 ;--* SAUVEGARDE DE L'ORIGINE *-- 
7003 ED53D970 710 ld  (orgx),de 
7007 22DB70 720 ld  (orgy),hl 
730 ;--* ORIG. = CENTRE CERCL. CIRCONS. *-- 
700A EDSBE270 740 ld de,(centx) 
700€  2AE470 750 id hl,(centy) 
7011 CDC9BB 760 call origin 
770 ;--*# CONVERSION RAYON EN FLO *-- 
7014  3E00 780 ld a,0 
7016 2AF270 790 ld hl,(ray) 
7019 11D470 800 ld de,sto 
701C CD64BD 810 call entflo 
820 ;--* CHOIX UNITE DEGRES *-- 
701F 3EFF 830 id a,255 
7021 3213B1 840 ld (degres),a 
850 ;--* CONVERSION COTE EN FLO *-- 
7024 2AF070 860 ld hl,(cotent) 
7027 11EF670 870 ld de,cote 
702A CD64BD 880 call entflo 
890 ;--* CONVERSION 360 EN FLO *-- 
702D 216801 900 ld h1,360 
7030 11EB70 910 id  de,pas 
7033 CD64BD 920 call entflo 


930 ;--* CALCUL PAS (360/cote) *-- 
7036 21EB70 940 ld hl,pas 
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7039 11E670 950 ld de,cote 
703C CD88BD 960 call divise 
970 ;--* INITIAL. DE L'ANGLE *-- 
703F  2ADD70 980 1d hl,(ang) 
7042 11DD70 990 ld de,ang 
7045  CD64BD 1000 call entflo 
7048 1809 1010 jr al 


1020 ;--* ANG = ANG + PAS *-- 
704A 21DD70 1030 debut: Ild hl,ang 


704D 11EB70 1040 ld de,pas 
7050 CD7CBD 1050 call additi 
1060 ;--* ANG DANS STO1 ET STO2 *-- 
7053 11D070 1070 al: ld de,ang 
7056 21CA70 1080 id hl,stol 
7059 CD61BD 1090 call transf 
705C 11CF70 1100 id: de,sto2 
705F 010500 1110 ld bc,5 
7062  EDBO 1120 ldir 
1130 ;--* CALCUL COSINUS ET SINUS *-- 
7064 21CA70 1140 ld hl,stol 
7067 CDAFBD 1150 call cosin 
706A CDB170 1160 call multi 
706D 22CA70 1170 id (stol),hl 
7070 21CF70 1180 ld hl,sto2 
7073 CDACBD 1190 call sinus 
7076 CDB170 1200 call multi 
7079 22CF70 1210 ld  (sto2),hl 
1220 ;--* TRACAGE POINT DE DEPART *-- 
707C 3AF070 1230 id a,(cotent) 
707F 21F470 1240 id hl,compte 
7082 BE 1250 cp (hl) 
7083 200€ 1260 jr  nz,a2 
7085 2ACF70 1270 ld hl,(sto2) 
7088 EDSBCA7O 1280 ld de,(stol) 
708C CDEABB 1290 call tracpi 
708F  180A 1300 jr  a3 
1310 ;--* TRACAGE DU COTE *-- 
7091 2ACF70 1320 a2: ld hl,(sto2) 
7094 EDSBCA7O 1330 ld de,(stol) 
7098 CDF6BB 1340 call tracot 
1350 ;--* DECREMENTATION DU COMPTEUR *-- 
709B 3AF470 1360 a3: ld a,(compte) 
709E  3D 1370 dec a 
709F  32F470 1380 ld (compte) ,a 
1390 ;--* TEST SI DERNIER COTE *-- 
70A2 FEFF 1400 cp  #ff 
7044  20A4 1410 jr  nz,debut 


1420 ;--* REMISE ORIGINE INITIALE *-- 
706 ED5BD970 1430 ld de, (orgx) 


70OAA 
70AD 
70B0 


70B1 
70B4 
70B7 
70BA 
70BB 
70BE 
70BF 
70C1 
70C2 
70C3 
70C4 
70C5 
70C6 
70C7 
70C8 
70C9 


70CA 
70CF 
70D4 
70D9 
70DB 
70DD 
70E2 
70E4 
70E6 
70EB 
70FO0 
70F2 
70F4 


2ADB70 
CDC9BB 
C9 


11D470 
CD85BD 
CD94BD 
F5 
CD6ABD 
EL 
FEO2 
D8 

7C 

2F 

67 

70 

2F 

6F 

23 

C9 
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1440 ld hl,(orgy) 
1450 call origin 
1460 ret 

1470 ; 


1480 ;--* MULTI. RAY * COS OÙ SIN *-- 
de,sto 
multip 
signe 


1490 multi: Jld 
1500 call 
1510 call 
1520 push 
1530 call 
1540 pop 
1550 cp 
1560 ret 
1570 ld 
1580 cpl 
1590 ld 
1600 ld 
1610 cpl 
1620 ld 
1630 inc 
1640 ret 
1650 ; 


1660 stol:  defs 
1670 sto2: defs 
1680 sto: defs 
1690 orgx:  defs 
1700 orgy:  defs 
1710 ang: defs 
1720 centx: defs 
1730 centy: defs 
1740 cote: defs 
1750 pas: defs 
1760 cotent: defs 
1770 ray: defs 
1780 compte: defs 


af 


floent 


af 
2 
C 
a,h 


h,a 
a,l 


1,a 
hl 


N ON NN Ui UN ON Un ND) ND Ur LU Un 


; STOCK ANG FLO 
;STOCK ANG FLO 

; STOCK RAY FLO 

; STOCK ORIGINE X 
; STOCK ORIGINE Y 
; STOCK ANGLE 

; COORD. CENTRE X 
;COORD. CENTRE Y 
;NBRE COT EN FLO 
; STOCK. DU PAS 
;NBRE COT EN ENT 
; STOCK RAY ENT 

; COMTEUR COTES 
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Pass 2 errors: O0 


al 7053 a2 
additi BD7C ang 
centy 70E4 compte 
cote 70E6 cotent 
degres B113 divise 
ext 6F9A floent 
multip BD85 nom 
orgy 7/0DB origin 
p2 6FB8 pas 
rechor BBCC rout 
signe BD94 sinus 
sto 7004 stol 
tracot BBF6 tracpi 


7091 
70DD 
70F4 
70FO 
BD88 
BD6A 
6FE5 
BBC9 
70EB 
7000 
BDAC 
70OCA 
BBEA 


Table used: 459 from 


Executes: 28560 





a3 709B 
centx 70E2 
cosin BDAF 
debut 704A 
entflo BD64 
multi 70B1l 
orgx  7OD9 
pl 6FB0 
ray 70F2 
TS« BCD1 
space 6FEE 
sto2 7OCF 
transf BD61 


900 


224 RSX ET ROUTINES ASSEMBLEUR SUR AMSTRAD CPC 


TRAITEMENT DE LA MÉMOIRE ÉCRAN 


GÉNÉRALITÉS 


Avant d'aborder toute routine concernant la mémoire écran des CPC, il est nécessaire 
de parfaitement connaître le mécanisme de gestion de l'écran. 


Pour commencer, nous savons qu'en mode 2, il est possible d'afficher à l'écran 80 
caractères par ligne, et ce sur 25 lignes. Si nous examinons un caractère de près, 
nous voyons qu'il s’agit en fait d'une matrice de 8 points sur 8 points. Ce qui signifie 
que l'écran affiche 8 x 80 = 640 points dans la longueur et dans la hauteur 8 x 25 = 
200 points. 


Donc, théoriquement, l'écran possède 640 x 200 points. Mais cela voudrait dire, si 
tous les points avaient même dimension, que la longueur serait 3 fois plus grande que 
la hauteur; or ce n'est pas le cas, puisque pour rétablir les proportions, chaque point 
de la hauteur est dédoublé, ce qui en fait 400. 


Finalement l'écran est formé de 640 x 400 points, en sachant qu'en réalité on 
considère 200 lignes de 2 points de haut. Chacun de ces points est repéré par ses 
coordonnées absolues par rapport au coin en bas à gauche de l'écran. Par exemple, le 
centre de l'écran a pour coordonnées : 320,200. 


Pour coder un point il faut un bit, qui sera mis à 1 si le point est activé, sinon à 0. On en 
déduit que un octet (8 bits) permet de coder 8 points. Pour 640 points, il faudra alors 80 
octets (640 = 8 X 80). Pour chaque ligne de l'écran, 80 octets seront nécessaires au 
codage. Comme il y a 200 lignes, il faudra 200 X 80 octets soit 16000 octets pour 
coder tout l'écran. Un K représentant 1024 octets, 16 K de mémoire seront réservés à 
l'écran dans la mémoire vive de la machine. Cette zone s'étend de l'adresse #C000 à 
l'adresse #FFFF. 


Mais si vous avez bien suivi, vous allez me dire que 16 K font en réalité 16 x 1024 
octets, c'est-à-dire 16384 octets alors qu'il n'en faut que 16000. C'est parfaitement 
exact! 384 octets de cette zone sont inutilisés. Nous préciserons leur emplacement 
par la suite. 


Comment s'organisent ces 16 K ? On pourrait penser que les octets de la mémoire se 
suivent pour représenter une ligne d'écran après l'autre. Ainsi la première ligne 
commencerait en #C000 pour se terminer 80 octets plus loin, soit en #C04F; la 
deuxième ligne commencerait en #C050 pour se terminer en #CO9F, et ainsi de suite 
jusqu'à la ligne 200. 


Et bien non ! Si ce que nous venons d'envisager est valable pour la première ligne, ça 
ne l'est pas pour le reste. En effet, la deuxième ligne de points de l'écran commence 
non pas en #C050 mais en #C800. Pourquoi ? La raison en est simple. Le CPC code 
d'abord les premières lignes de chaque ligne de caractères puis les deuxièmes lignes 
de chaque ligne de caractères et ainsi jusqu'à la huitième ligne de chaque ligne de 
caractères. 


Les premières lignes de points de chaque ligne de caractères seront alors codées de 
#C000 à #C7FF soit 80 x 25 octets. Cela forme donc un bloc de 2000 octets, 
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autrement dit de 2K. Mais 2K représentent 2048 octets et il n'en faut que 2000. Cela 
signifie que les 48 derniers octets de chaque bloc sont inutilisés. C'est ce que nous 
évoquions un peu plus haut. 


De même, les deuxièmes lignes de chaque ligne de caractères seront codées de 
#C800 à #CFCF, laissant à nouveau les 48 derniers octets de ce bloc de 2K inutilisés. 
Ainsi les dernières lignes de points de chaque ligne de caractères se verront stockées 
de #F800 à #FFCF, les octets de #FFDO à #FFFF étant délaissés. 


En conclusion, la zone mémoire écran des CPC est formée de huit blocs de 2K, 
représentant chacun l'ensemble d'une des huit lignes de chaque ligne de caractères; 
n'oublions pas que les 48 derniers octets sont inutilisés (48 octets x 8 blocs = 384 
octets libres, chiffre cité précédemment). 


Cette structure explique un phénomène que vous avez certainement déjà remarqué. 
Lors du chargement d'une page écran, on assiste non pas à un remplissage de l'écran 
ligne à ligne de haut en bas, mais à un remplissage ligne à ligne de 25 zones, réparties 
également sur l'écran. Chacune de ces zones correspond à une ligne de caractères. 


Nous savons maintenant comment s'organise la mémoire écran des CPC. Il nous 
reste à expliquer le fonctionnement de cette zone lors de l'utilisation de chacun des 
trois modes. 


Avant cela, il est nécessaire de définir un terme que nous emploierons très 
fréquemment par la suite. || s'agit du terme PIXEL. Le pixel est l'unité de base de 
l'écran, formé selon les modes d'un nombre différent de points. 


Autrement dit, c'est la plus petite partie de l'écran à laquelle il est possible de donner 
une couleur propre. Cette unité verra sa taille réelle augmenter au fur et à mesure que 
la palette des couleurs s’élargira, la résolution de l'écran étant alors moins fine. 


Ainsi en mode 2, il est possible de placer 80 caractères de huit points par ligne soit 640 
points. Disposant de 80 octets par ligne, chaque caractère sera codé par un octet et un 
bit de celui-ci correspondra à un point. Si le bit est mis à 1, le point est placé à l'écran 
dans la couleur de l'écriture ; s'il est à O, le point prend la couleur du fond. L'utilisateur 
ne dispose alors que de deux couleurs dans ce mode. Chaque pixel représente un 
rectangle d'un point de large sur deux points de haut. C'est la résolution la plus fine. 


En mode 1, chaque ligne permet d'afficher 40 caractères. Deux octets servent donc au 
codage d'un caractère, un octet codant la moitié de celui-ci. La matrice d'un caractère 
étant indépendante du mode, à savoir une grille de 8 x 8, 2 bits de chaque octet 
servent à placer un des 4 pixels de cette moitié de matrice. Or en binaire, 2 bits 
permettent de coder les nombres de 1 à 4; ce qui explique que chaque pixel, selon la 
valeur donnée par les 2 bits, sera affiché à l'écran dans l'une des 4 couleurs 
disponibles. En conclusion, mode 1 : 40 caractères de 8 pixels par ligne avec pour 
chaque pixel (2 points), un choix de 4 couleurs. 


20 caractères peuvent être affichés, par ligne, en mode 0. || faut alors 4 octets pour 
chacun d'eux. Un octet est donc utilisé pour afficher 2 pixels sur les 8 de la matrice. Un 
pixel nécessite dans ce cas 4 bits, mais grâce à ceux-ci peuvent être codés, en binaire, 
les nombres de 1 à 16. Vous comprenez alors pourquoi, par pixel, l'utilisateur dispose 
d'une palette de 16 couleurs. Finalement, mode 0 : 20 caractères de 8 pixels par ligne 
avec par pixel (4 points), un choix parmi 16 couleurs. 
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Le tableau suivant résume ce que nous venons de voir: 


PIXELS 


AFFICHES 160 sur 200 320 sur 200 640 sur 200 


NOMBRE 
PIXELS 
PAR OCTET 








TAILLE 
DES PIXELS 


en points 


CARACTERES 


AFFICHES 20 sur 25 40 sur 25 80 sur 25 





NOMBRE 
OCTETS PAR 
CARACTERE 








COULEURS 
UTILISABLES 








Si l'organisation de la mémoire écran n'a plus de secret pour nous, il reste quand 
même un point essentiel à aborder. Il s'agit de la valeur à attribuer à un octet pour que 
les pixels qu'il représente soient de la couleur désirée. 


Là encore, tout dépend du mode choisi. Commençons par le plus simple, à savoir le 
mode 0. Dans ce cas, avons-nous vu, un octet représente 8 pixels d'un point chacun. 
Pour qu'un de ceux-ci soit affiché à l'écran, il suffit de mettre à 1 le bit correspondant et 
de convertir l'octet ainsi déterminé en décimal ou hexadécimal. 


Pour le mode 1, cela se complique. En effet, nous savons qu'un octet sert à coder 4 
pixels de 2 points chacun. 


Si nous numérotons les bits de l'octet de 7 à O, de la gauche vers la droite, nous 
pourrions penser que les bits 7 et 6 servent à fixer l'encre du pixel de l'extrême 
gauche ; de la même façon les bits 5 et 4 seraient le pixel suivant à droite ; les bits 3 et 
2 seraient l'avant-dernier pixel ; et enfin les bits 1 et O0 seraient le pixel d'extrême droite. 


Eh bien c'est perdu ! En réalité, le premier pixel à gauche est codé avec les bits 3 et 7, 
le pixel suivant avec les bits 2 et 6, puis l'avant-dernier avec les bits 1 et 5, et le pixel le 
plus à droite avec les bits O et 4. 
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Cela nécessite alors d'effectuer de nombreux calculs pour pouvoir colorer chaque 
pixel avec le numéro d'encre voulu. 


Quant au mode 0, le système utilisé ressemble à celui du mode 1. Ici un octet permet 
de coder 2 pixels de 4 points chacun. Le numéro de l'encre dans laquelle sera affiché 
le premier pixel est fourni par les bits 1, 5, 3 et 7, et ce dans l'ordre du bit le plus 
significatif vers le moins significatif. De même, le pixel de droite sera coloré avec le 
numéro d'encre déterminé par les bits O, 4, 2 et 6. Là encore, de nombreux calculs 
seront à faire afin de fournir les couleurs désirées aux pixels. 


Enfin, nous ne serions pas complets si nous n'évoquions pas la possibilité de faire 
afficher les pixels à l'écran selon un cache; celui-ci permet aux seuls pixels autorisés 
d'apparaître dans la couleur fixée par le codage de l'octet, et aux autres de s'afficher 
dans la couleur du fond. 


De même les pixels peuvent être affichés dans une autre couleur que celle indiquée 
par les octets, et ce, en modifiant le mode d'encre graphique comme le précise le 
guide de l'utilisateur. 


COPIE D'UNE ZONE DE L'ÉCRAN 


Fonction : copie d'une partie de l'écran à un autre endroit de l'écran. 


Il peut être intéressant, notamment dans le cadre d'un logiciel de dessin, de pouvoir 
recopier une partie de l'écran à un autre endroit de celui-ci. C'est l'objet de la routine 
suivante. 


Le principe en est simple. On fixe, pour la zone à copier, son point de départ, repéré 
par le coin en bas et à gauche, puis sa longueur et enfin sa hauteur. On précise 
également, dans les paramètres à fournir à la routine, le nouveau coin en bas et à 
gauche où se fera la copie de la zone. 


A partir de là, chaque ligne de la zone à copier étant une série d'octets, il suffira de 
déterminer l'adresse de départ de la ligne, puis celle d'arrivée dans la nouvelle zone ; il 
nous faudra également déterminer le nombre d'octets qu'il faudra transférer par ligne. 


Il restera alors, pour chaque ligne, à effectuer le déplacement des octets codant cette 
ligne. 


Syntaxe : |[COPZONE,X1,Y1,L,H,X2,Y2 


avec X1: coordonnée X en pixels du coin bas à gauche de la zone à copier. 
Y1: coordonnée Ÿ en pixels du coin bas à gauche de la zone à copier. 
L : longueur en pixels de la zone à copier. 
H : hauteur en pixels de la zone à copier. 
X2 : coordonnée X en pixels du coin bas à gauche de la zone où s'effectue la 
copie. 
Y2 : coordonnée Ÿ en pixels du coin bas à gauche de la zone où s'effectue la 
copie. 


Il sera précisé par la suite pourquoi il est besoin d'exprimer les coordonnées en pixels 
et non en coordonnées absolues. 
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Routines système utilisées 


Les adresses restent inchangées quel que soit le CPC utilisé. 


#BCO05 : positionnement du décalage écran. 

#BC1D : indique l'adresse d'un pixel dans la mémoire écran. 

#BC29 : indique l'adresse de l'octet situé en haut d’un octet dont l'adresse 
est fournie. 


Explications 


Les paramètres nécessaires au bon fonctionnement de la routine sont stockés dans 
DEPX et DEPY pour les coordonnées d'origine de la zone à copier, puis dans COT1 et 
COT2 pour la longueur et la hauteur de la zone, et enfin dans ARRX et ARRY pour les 
coordonnées de la zone après copiage. 


Pour débuter, la routine prend soin de fixer le décalage écran à O afin d'être sûr de 
n'avoir aucune perturbation à l'écran, comme un scrolling par exemple. 


Ensuite se font les recherches des adresses du point d'origine de la première ligne à 
copier et du point d'arrivée de cette même première ligne. Celles-ci seront conservées 
dans ADRDEP et ADRARR. Les adresses sont obtenues par appel de la routine 
#BC1D à laquelle il faut fournir les coordonnées, en pixels, du point dont on désire 
l'adresse. Cela signifie que ces coordonnées varieront selon le mode dans lequel on 
travaille. Il faudra alors être vigilant sur ce point afin de ne pas transmettre de 
coordonnées illégales. 


La routine cherche alors le nombre d'octets à copier par ligne. Pour cela, il suffit à 
nouveau de s'adresser à la routine #BC1D. Nous lui fournirons les coordonnées de la 
fin de la première ligne. Elles seront obtenues en ajoutant la longueur de la zone (en 
pixels) à la coordonnée X du coin gauche et en retirant cette adresse à celle de départ 
de la zone. Le résultat est stocké dans OCLIGN. 


Un LDIR se charge ensuite de transférer les octets de la première ligne de ADRDEP à 
ADRARR, et ce pour le nombre d'octets contenu dans OCLIGN. 


COT2 qui représente le nombre de pixels dans la hauteur de la zone à copier est alors 
décrémentée. En effet, elle fixe aussi le nombre de lignes de la zone et, par là même, 
quand la décrémentation aboutira à 0, cela signifiera que la dernière aura été copiée. 


Tant que la valeur 0 n'est pas atteinte, la routine passe aux calculs des adresses de 
départ et d'arrivée de la ligne suivante. Ceci se fait par la routine #BC29, qui indique 
l'adresse, dans la mémoire écran, d'un octet se trouvant juste au-dessus d'un octet 
dont on lui aura fait parvenir l'adresse. 


Une fois ces calculs effectués, les résultats sont stockés dans ADRDEP et ADRARR, 
afin de pouvoir à nouveau transférer la ligne par un LDIR. 


La routine s'achève quand COT2 prend la valeur O. 
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Démonstration 


La mise en œuvre du programme de démonstration suppose de posséder sur disque 
ou cassette un fichier, appelé ECRAN.SCR, contenant une page écran en mode 
0 ou 1. 


Le programme BASIC suivant permet d'effectuer un scrolling d'une bande verticale de 
la page écran. 
10 ink 1,n etc. (Choix des encres avant le changement de la page écran) 
20 LOAD « ECRAN.SCR »,&C000 
30 FOR 1=0 TO 140 
40 |[COPZONE,100,140—1,60,50,10,10 
50 NEXT 


D'autres effets, que vous aurez tôt fait de découvrir, sont possibles en choisissant bien 
les paramètres. Faites attention malgré tout à bien fournir les coordonnées en PIXELS. 
Cependant, l'envoi de coordonnées illégales ne « plante » pas la machine mais permet 
d'obtenir de curieux résultats. 
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Routine de copie d’une zone écran à un autre endroit de la page écran 


Légende : 


ACQUERIR 
PARAMETRES 


DECALAGE 
ECRAN 
A O 






O — chiffre zéro 
® — lettre (pour « OUI») 
N — (pour « NON ») 



















CALCUL 
ADRESSE DEPART 
DE LA ZONE 





CALCUL 
ADRESSE 
ARRIVEE 

DE LA ZONE 


CALCUL NB 
OCTETS A 
COPIER PAR 
LIGNE 





CALCUL 
ADRESSE DEPART 
LIGNE 

SUIVANTE 


CALCUL ADRESSE 
ARRIVEE 
LIGNE 
SUIVANTE 
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Hisoft GENA3.1 Assembler. 


Pass 1 errors: 00 


10 ;=* ROUTINE COPIE DE ZONE CPC 464 ET CPC 6128 *- 


20 ; 
6F AO 30 ent #6fa0 
6F AO 40 org #6fa0 

50 ; 

60 ;--* TRAITEMENT RSX *-- 

70 ; 
BCDI 80 rsx: equ #bcdl 
6FAO O1AA6F 90 ld  bc,ext 
6FA3 21F56F 100 ld hl,space 
6FA6 CDDIBC 110 call rsx 
6FA9 C9 © 120 ret 
6FAA ED6F 130 ext: defw nom 

140 ;--* RECUPERATION DES PARAMETRES *-- 
6FAC DD460B 150 id b,(ix+11) 
6FAF  DD4E0A 160 ld c,(ix+10) 
6FB2 ED436870 170 ld (depx),bc 
6FB6  DD4609 180 ld b,(ix+9) 
6FB9  DD4E08 190 ld c,(ix+8) 
6FBC ED436A70 200 ld (depy),bc 
6FCO DD4607 210 ld b,(ix+7) 
6FC3 DD4E06 220 ld c,(ix+6) 
6FC6é ED436C70 230 ld (cot1),bc 
6FCA DD4605 240 ld b,(ix+5) 
6FCD DD4E04 250 ld c,(ix+4) 
6FDO ED436E70 260 ld (cot2),bc 
6FD4 DD4603 270 ld b,(ix+3) 
6FD7 DD4E02 280 ld c,(ix+2) 
6FDA ED437070 290 ld (arrx),bc 
6FDE DD4601 300 ld b,(ix+1) 
6FE1 DD4E00 310 ld c,(ix+0) 
6FE4 ED437270 320 id  (arry),bc 
6FE8 FEO6 330 cp 6 
6FEA CO 340 ret nz 
6FEB 1813 350 jr rout 

360 ; 
6FED 434F505A 370 nom: defm "COPZON'" 
6FF3 C5 380 defb "E"4+/80 
6FF4 O0 390 defb O 
6FF5 400 space: defs 4 

410 ; 

420 ; 


430 ;--* TRAITEMENT CALL *-- 
440 ; 
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7000 


BC1D 
BCO5 
BC29 


7000 
7003 


7006 
700A 
700D 
7010 
7013 
7017 
701A 
701D 


7020 
7024 
7027 
7028 
702C 
702D 
7030 
7034 
7036 


7039 
703C 
7040 
7044 


7046 
7049 
704A 
704D 
7050 
7052 
7053 


7054 
7057 
705A 
705D 
7060 
7063 
7066 


210000 
CDO5BC 


ED5B6870 
2A6A70 
CD1DBC 
227470 
ED5B7070 
2A7270 
CD1DBC 
227670 


ED4B6870 
2A6C70 
09 
ED5B6A70 
EB 
CD1DBC 
ED5B7470 
ED52 
227870 


2A7470 
ED5B7670 
ED4B7870 
EDBO 


2A6E70 
2B 
226E70 
216E70 
3E00 
BE 

C8 


2A7470 
CD29BC 
227470 
2A7670 
CD29BC 
227670 
18D1 


450 


460 ; 


470 
480 
490 


500 ; 


510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
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org #7000 
’ 
adcoor: equ #bcld 
inidec: equ #bcO5 
adrhau: equ #bc29 
, 
;--* DECALAGE ECRAN = O *-- 
rout: Id h1l,0 
call inidec 
;--* CALCUL ADRESSES DEPART ET ARRIVEE *-- 
id de,(depx) 
ld hl,(depy) 
call adcoor 
1d (adrdep),hl 
ld de,(arrx) 
ld hl,(arry) 
call adcoor 
id  (adrarr),hl 
;--* CALCUL NOMBRE D'OCTETS A COPIER/LIGNE *-- 
ld  bc,(depx) 
ld hl,(cotl) 


add h1l,bc 
ld de,(depy) 
ex de,hl 


call adcoor 
id de,(adrdep) 
sbc h1l,de 
1d  (oclign),hl 
;--* COPIE D'UNE LIGNE *-- 
coplin: 1d hl,(adrdep) 
id de,(adrarr) 
id bc,(oclign) 
ldir 
;--* TEST SI DERNIERE LIGNE A COPIER *-- 
ld hl,(cot2) 


dec hl 

1d (cot2),hl 
1d hl,cot2 
ld a,0 

cp (hl) 

ret z 


;--* CALCUL ADRESSES DEP ET ARR LIGNE SUIVANTE *-- 
id h1,(adrdep) 
call adrhau 
ld  (adrdep),hl 
ld hl,(adrarr) 
call adrhau 
id (adrarr),hl 
jr  coplin 
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7068 
706A 
706C 
706€ 
7070 
7072 
7074 
7076 
7078 


Pass 2 


adcoor 
adrhau 
coplin 
depx 
inidec 
rout 


950 depx: 
960 depy: 
970 cotl: 
980 cot2: 
990 arrx: 
1000 arry: 


1010 adrdep: defs 
1020 adrarr: defs 
1030 oclign: defs 


errors: 00 


BCI1D adrerr 7076 
BC29 arrx 7070 
7039 cotl 706C 
7068 depy  706A 
BCO5 nom 6FED 
7000 rsx BCD1 


defs 
defs 
defs 
defs 
defs 
defs 


NN ND NN N N NO N NN 


adrdep 7074 


arry 7072 
cot2 706E 
ext 6FAA 


oclign 7078 
space 6FF5 
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;COOR PIX X DEP 
;COOR PIX Y DEP 
;NBR PIX LONGUEUR 
:NBR PIX HAUTEUR 
;COOR PIX X ARR 
;COOR PIX Y ARR 
;STOC ADR DEPART 
:STOC ADR ARRIVEE 
:STOC NBR OCT/LIG 
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ZOOM D'UNE PARTIE DE L'ÉCRAN 


Fonction : Agrandissement d'une zone de page écran. 


Un des principaux attraits d'un logiciel d'aide au dessin est de posséder une fonction 
ZOOM ou LOUPE permettant d'obtenir un agrandissement d'une zone donnée d'une 
page écran. Son utilité étant bien entendu de mieux visualiser la zone et surtout de 
mieux distinguer les couleurs de chaque pixel. C'est l'objet de la routine que nous 
allons étudier maintenant. 


Quel est son principe de fonctionnement ? Il consiste tout simplement à agrandir 
chaque pixel de la zone concernée à la taille d’un caractère. L'écran pouvant afficher, 
en mode 0, 25 lignes de 20 caractères et, en mode 1, 25 lignes de 40 caractères, la 
dimension de la zone à zoomer sera donc, suivant le mode, de 25 lignes de 20 ou 40 
pixels. Lors du zoom, chacun de ces pixels sera représenté par un pavé curseur 
affiché, dans la couleur du pixel qu'il agrandit. 


La première tâche de la routine consistera alors à repérer la zone à zoomer grâce aux 
paramètres qui lui seront fournis, fixant les coordonnées du coin bas et à gauche de la 
partie à agrandir. 


La routine stockera en mémoire les numéros d'encre de chaque pixel de la zone, et ce, 
ligne à ligne. C'est de cette zone mémoire que le programme récupérera le numéro 
d'encre pour l'attribuer au stylo lors de l'affichage du zoom. 


Ensuite, la page écran devra être sauvegardée soit dans la mémoire, soit sur disque 
ou cassette, afin de pouvoir être récupérée si besoin. 


Il ne restera plus, pour la routine, qu'à afficher, en mode texte, un caractère plein, de la 
couleur du pixel qu'il agrandit, et ce à une position équivalente à celle occupée par le 
pixel dans la zone. 


L'appui d'une touche permettra de réafficher la page écran telle qu'elle se présentait, 
avant l'utilisation de cette fonction loupe. 


Syntaxe : |ZOOM,X,Y 


avec X: coordonnée absolue X du coin bas à gauche de la zone (X compris entre 0 
et 639) 

Y : coordonnée absolue Y du coin bas à gauche de la zone (Y compris entre O 
et 399). 


Routines système utilisées 


Entre parenthèses, adresses équivalentes pour le CPC 464. 


#B726 (#B285) : pointeur ligne du curseur en mode TEXTE. 
#B727 (#B286) : pointeur colonne du curseur en mode TEXTE. 


#BB06 : attente de la frappe d'une touche. 


#BB5A : impression d'un caractère. 

#BB90 : fixe l'encre du stylo. 

#BBFO0 : indique le numéro de l'encre d'un pixel. 
#BC11 : indique le mode en cours. 
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Explications 


Les deux paramètres à passer à la routine (coordonnées absolues du coin bas à 
gauche de la zone) sont stockés en DEPX et DEPY. 


La routine utilisée pour rechercher l'encre d'un pixel se trouve en #BBF0. Elle 
demande l'envoi des coordonnées absolues d'un point contenu dans ce pixel. Les 
coordonnées varient donc pour X de O0 à 639, et de O à 399 pour Y. 


Seulement, selon le mode en cours, les pixels contiennent dans leur longueur, un 
nombre de points différents : 4 points en mode 0 et 2 points en mode 1. Il faudra alors 
fixer une valeur que nous appellerons PAS; celui-ci permettra de déterminer les 
coordonnées d'un point du pixel suivant par addition de ce PAS à la coordonnée X 
précédente. PAS contiendra 4 pour le mode 0, et 2 pour le mode 1. 


De même, le nombre de colonnes varie selon le mode : 20 pour le mode 0 et 40 pour le 
mode 1. Cette Valeur, qu'il est nécessaire de connaître lors du zoom, sera stockée 
dans NBRCOL après que la routine, par appel de #BC11, ait déterminé le mode en 
cours. 


En IX sera chargée, puis incrémentée, l'adresse de stockage des numéros d'encre des 
pixels. Ce stockage s'effectue ligne par ligne de la zone à zoomer. De la première à la 
dernière colonne de chaque ligne de la zone, la routine cherche le numéro de l'encre 
du pixel dont les coordonnées sont passées à #BBF0, et la place à l'adresse située 
dans IX. Le test d'atteinte de la dernière colonne se fait en comparant le registre A, 
utilisé comme compteur, avec le nombre de colonnes indiqué par NBRCOL. 


Quand le compteur arrive à 40 (ou 20 suivant le mode), on passe à la ligne suivante en 
incrémentant de 2 les coordonnées du début de la ligne précédente car une ligne de 
pixels fait 2 points de haut. On reprend alors le stockage de la ligne jusqu'à la 25° et 
dernière ligne de la partie à agrandir. 


L'écran est ensuite stocké à l'adresse indiquée dans SAUVEC. Le zoom sera 
déclenché par l'appui d'une touche, ceci afin d'avoir le temps de visualiser la page 
écran avant l'exécution de l'effet loupe. 


La réalisation du zoom reprend le principe du stockage des numéros d'encre, mais en 
sens inverse. IX pointe à nouveau sur la zone de stockage des encres. COOX et 
COOY contiennent les coordonnées de l'endroit où s'affichera le caractère de la 
couleur du pixel. Ces coordonnées seront placées dans #B725 et #B726 qui sont les 
pointeurs de la position du curseur texte. 


Le numéro de l'encre placé dans l'adresse pointée par IX sert à fixer l'encre du stylo 
grâce à la routine #BB90. La routine #BB5A affiche alors le caractère de code ASCII 
#8F qui est en fait, une case pleine. L'affichage s'effectue à la position en cours du 
curseur. IX et COOX sont incrémentés, la nouvelle encre du stylo fixée, et le caractère 
#8F affiché à l'écran. 


Quand la dernière colonne de la ligne est atteinte, COOY est décrémentée ; en effet 
l'affichage du zoom se fait du bas vers le haut, donc de la ligne 24 à la ligne 0 et la 
routine reprend l'affichage de la nouvelle ligne, et ainsi de suite jusqu'à la dernière. 


La routine s'achève par le réaffichage de la page écraninitiale précédemment stockée. 
Celui-ci s'effectue après la frappe d'une touche, de manière à pouvoir contrôler le 
moment de retour de l'écran de départ. 
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Démonstration 


Le programme de démonstration que nous vous proposons demande à nouveau de 
posséder une page écran en fichier (appelée ECRAN.SCR) comme c'était le cas pour 
la routine de copie de zone. 


10 MODE m (m valant O ou 1 selon le cas) 

20 INK 1,a: INK 2,b: … (choix des couleurs des encres) 
30 LOAD « ECRAN.SCR »,&C000 

60 |ZOOM,320,200 


Dans ce cas, la partie zoomée sera la zone dont le coin bas à gauche se trouve en 
plein milieu de l'écran. 
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Routine de zoom d’une partie de l'écran graphique 


Légende : 


COORDONNEES 
ZONE 
A COPIER 


RECHERCHE 
MODE 
STOCKAGE 

PAS ET COLONNE 


COORDONNEES 
197 COLONNE 
A STOCKER 








0 — chiffre zéro 
® — lettre (pour « OUI») 
N — lettre (pour « NON ») 






D'UNE 
LIGNE 


| STOCKAGE | fuoous 
S 


















LIGNE 


LIGNE + 2 


DERNIERE 
LIGNE 
STOCKEE ? 


O 


SAUVEGARDE 
ECRAN 


COORDONNEE 
LIGNE 
D'AFFICHAGE 


ZOOM 
D'UNE LIGNE 


DERNIERE 
LIGNE 
ZOOMEE 





_— — — MODULE 
Z 









© 








ATTENTE 
FRAPPE 
REAFFICHAGE 
PAGE ECRAN 
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ZOOM : Module de stockage d'une ligne 


Module S 
Os 









DERNIERE 
COLONNE ? 






PIXEL = 
PIXEL + PAS 


ZOOM : Module de zoom d’une ligne 


Module Z 





AFFICHAGE 
CARACTERE 


DERNIERE 
COLONNE ? 





COLONNE = 
COLONNE + 1 
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Hisoft GENA3.1 Assembler. 
Pass 1 errors: 00 


10 ;=* ROUTINE Z00M CPC 6128 *= 


20 ; 
A000 30 ent  #a000 
AO00 40 org #a000 
50 ; 
60 ;--* TRAITEMENT RSX *-- 
70 ; 
BCDI 80 rsx: equ #bcdl 
A0O00  O10AAO 90 ld bc,ext 
A0O0O3 212AA0 100 ld hl,space 
A006  CDD1BC 110 call rsx 
AO09 C9 120 . ret 
AOCA  25A0 130 ext: defw nom 
140 ;--* RECUPERATION DES PARAMETRES *-- 
AOOC  DD4601 150 ld b,(ix+1) 
ACOF  DD4E00 160 ld c,(ix+0) 
AO12 ED432DA1 170 1d (depy),bc 
AO16 DD5603 180 ld d,(ix+3) 
A0O19 DD5E02 190 1ld e,(ix+2) 
AO1C ED532BA1 200 1d (depx),de 
A0O20 FEO2 210 cp 2 
AO22 CO 220 ret nz 
A023 182B 230 jr rout 
240 ; 
AO25 SA4F4F 250 nom: defm "ZOO" 
A0O28 CD 260 defb "M'+180 
AO29 O0 270 defb O 
AO2A 280 space: defs 4 
290 ; 
300 ; 
310 ;--* TRAITEMENT CALL *-- 
320 ; 
AO50 330 org #a050 
340 ; 
5900 350 sauvec: equ #5900 
BB06 360 fratou: equ #bb06 
BBFO 370 encpix: equ #bbf0 
BB90 380 encsty: equ #bb90 
B727 390 curcol: equ #b727 
B726 400 curlig: equ #b726 
BB5A 410 impcar: equ #bb5a 
BCI1 420 mode: equ #bcll 
430 ; 


440 ;--* RECHERCHE DU MODE *-- 


240 


AO50 
A053 
AO55 


AO57 
AOSA 
AOSE 
AO61 
A065 


A067 
AO6A 
AO6E 
AO71 


AO75 


A079 
AO7C 
AO7F 
AOB1 


A082 


A084 
A088 


AO8C 


AO8F 
A093 
A094 
A095 
AO99 
AO9A 


AO9B 


AO9D 
AO9F 
AOAO 


AOA2 
AOAS 
AOA8 
AOAB 


AOAD 


CD11BC 
FEOO 
2810 


010200 
ED431DA5 
012800 
ED431FAS 
180E 


010400 
ED431DA5 
011400 
ED431FAS 


DD2133A1 


2A2DA1 
2231A] 
3E00 
F5 


3E00 


ED5B2BA1 
ED532FA1 


CDDDAO 


ED5B31A1 
15 
15 
ED5331A1 
FI 
3C 


FE19 


2803 
F5 
18E0 


2100C0 
110059 
010040 
EDBO 


CD06BB 


450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
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rout: call mode 
cp O0 
jr 2z,a2 
;--* PAS ET COLONNE POUR MODE 1 *-- 
ld  bc,2 
ld (pas),bc 
id  bc,40 
ld (nbrcol),bc 
jr a3 
;--* PAS ET COLONNE POUR MODE O *-- 
a2: ld  bc,4 
1d (pas),bc 
ld bc,20 
1d (nbrcol),bc 
;--* ADRESSE ZONE DE STOCKAGE DANS IX *-- 
a3: ld ix,stock 
;--* COORD. lere LIGNE A STOCKER DANS HL *-- 
id hl,(depy) 
1d  (stoy),hl 
ld a,0 
push af 
;--* DEBUT DU STOCKAGE *-- 
stozon: ld  a,0 


L 


--* COORD. COLONNE A STOCKER DANS DE *-- 
id de,(depx) 
1d (stox),de 


;--* STOCKAGE DE LA LIGNE *-- 


call stolin 
--* LIGNE A STOCKER = LIGNE + 2 *-- 
ld de,(stoy) 
inc de 
inc de 
ld  (stoy),de 
pop af 
inc a 


;--# TEST SI LIGNE = 25 *-- 


cp 25 


;--* SI OUI ALLER A SUITE *-- 


jr z,suite 
push af 
jr stozon 


860 ;--* STOCKAGE DE LA PAGE ECRAN EN SAUVEC *-- 
870 suite: Id hl,#c000 


880 
890 
900 
910 
920 
930 


, 


, 


ld de,sauvec 
1d  bc,#4000 
ldir 


;--* ATTENTE FRAPPE D'UNE TOUCHE *-- 


call fratou 


5--* DEBUT DU ZO0M *-- 
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AOBO DD2133A1 940 zoomec: Id ix,stock 
950 ;--* lere LIGNE A ZOOMER EN LIGNE TEXTE 24 #-- 


AOB4 3E18 960 ld a,24 
AOB6 321CA5 970 ld  (cooy),a 
AOB9  3E00 980 al: ld a,0 
AOBB 321BA5 990 ld (coox),a 
1000 ;--* ZO0M D'UNE LIGNE *-- 
AOBE CDOIAI 1010 call zoomli 
AOC1 3A1CA5 1020 ld © a,(cooy) 
1030 ;--* TEST SI DERNIERE LIGNE ? *-- 
AOC4 FEOO 1040 cb: 0 
1050 ;--* SI OUI ALLER EN FIN *-- 
AOC6 2806 1060 jr z,fin 
1070 ;--* PASSAGE A LA LIGNE TEXTE SUIVANTE *-- 
AOC8 3D 1080 dec a 
AOC9 321CA5 1090 ld  (cooy),a 
AOCC 18EB 1100 jr al 
1110 ;--* ATTENTE FRAPPE D'UNE TOUCHE *-- 


AOCE  CDO6BB 1120 fin: call fratou 


1130 ;--* REAFFICHAGE DE LA PAGE ECRAN *-- 
AOD1 210059 1140 id hl,sauvec 
AOD4  1100C0 1150 ld  de,#c000 
A0D7 010040 1160 ld  bc,#4000 
AODA  EDBO 1170 ldir 
AODC C9 1180 ret 
1190 ; 
1200 ;--* STOCKAGE D'UNE LIGNE DE LA ZONE A ZOOMER *-- 
AODD 3C 1210 stolin: inc a 
AODE F5 1220 push af 
1230 ;--* RECHERCHE DE L'ENCRE DU PIXEL *-- 
AODF ED5B2FA1 1240 ld de,(stox) 
ACE3 2A3]1A1l 1250 ld hl,(stoy) 
ACE6 CDFOBB 1260 call encpix 
1270 ;--* STOCKAGE DE L'ENCRE EN IX *-- 
ACE9 DD7700 1280 ld (ix),a 
AOEC DD23 1290 inc ix 
ACŒE F1 1300 pop af 
1310 ;--* TEST SI DERNIERE COLONNE *-- 
AOEF 211FA5 1320 ld h1,nbrcol 
AOF2 BE 1330 cp (h1) 
AOF3 C8 1340 ret 2z 
1350 ;--* SI NON INCREM. SUIVANT PAS *-- 
AOF4 2A2FAl 1360 ld hl,(stox) 
AOF7 ED4B1DAS 1370 ld bc,(pas) 
AOFB 09 1380 add hl,bc 
AOFC 222FAl 1390 ld (stox),hl 
AOFF  18DC 1400 jr  stolin 
1410 ; 


1420 ;--* ZOOM D'UNE LIGNE *-- 
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A10O1 
A102 


A103 
A106 
A109 


A10B 
A1OE 
Al11 
Al14 
A117 
A119 
A11C 
A11D 


A120 
A121 


A122 
A125 
A126 
A129 


A12B 
A12D 
A12F 
A131 
A133 
A51B 
A5S1C 
A510 
AS1F 


3C 
F5 


DD7E00 
CD90BB 
DD23 


3A1BAS 
3227B7 
3A1CA5 
3226B7 
3E8F 
CD5ABB 
F1 
211FA5 


BE 
C8 


3A1BAS 
3C 
321BA5 
18D6 
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1430 zoomli: inc a 


1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 


1660 ; 


1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 


push af 


;--* ENCRE DU STYLO = ENCRE DU PIXEL A ZOOMER *-- 


ld a,(ix) 
call encsty 
inc ix 


;--* AFFICHAGE DU PIXEL ZOOME *-- 


1d a,(coox) 
ld  (curcol),a 
ld _a,(cooy) 
ld  (curlig),a 
ld a,#8f 

call impcar 

pop af 

ld hl,nbrcol 


;--* TEST SI DERNIERE COLONNE *-- 


5--* SI 


depx: 
depy: 
stox: 
stoy: 
stock: 
COox : 
cooy : 
pas: 
nbrcol : 


cp  (hl) 

ret 2z 

NON COLONNE SUIVANTE #-- 
id a,(coox) 

inc a 

ld (coox),a 

jr zoomli 


defs 
defs 


;COOR X ZONE 
;COOR Y ZONE 
defs ; STOCKAGE DE X 
defs ; STOCKAGE DE Y 
defs 1000 ;ZONE STOCK ENCRE 
defs 1 ; STOCK COR X 
defs ; STOCK COR Y 
defs ;PAS POUR COLONNE 
defs ;NBRE COL. TEXTE 


N NO N N 


N N + 
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Pass 2 errors: O0 


al 
coox 
curlig 
encpix 
fin 
mode 
pas 
sauvec 
stolin 
stozon 
zoomli 


AOB9 
A51B 
B726 
BBFO 
AOCE 
BCI11 
A510 
5900 
AODD 
A082 
A1OI 


Table used: 
Executes: 40960 


a2 A067 
cooy  A51C 
depx  A12B 


encsty BB90 
fratou BB06 
nbrcol A51F 
rout AO50 
space AO2A 
stox  A12F 
suite AOA2 


370 from 


a3 A0O75 
curcol B727 
depy A12D 
ext AOGA 
impcar BB5A 
nom AO25 
Isx BCDI1 
stock A133 
stoy  A131 


zoomec ADBO 


900 
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SUPER-ZOOM 


Fonction : agrandissement d'une zone de page écran donnée avec affichages 
simultanés de la zone et de son zoom et possibilité de déplacement. 


La routine zoom, vue précédemment, nous a permis de mettre en évidence le principe 
de l'effet loupe. Mais, faut-il avouer, cela manquait de souplesse dans la mesure où il 
fallait repasser par la page écran pour voir où se trouvait la partie agrandie. 


Nous vous proposons alors une amélioration de la routine zoom, qui permettra d'avoir 
en même temps à l'écran la partie zoomée, en taille réelle, et, en dessous, le zoom de 
cette zone. De plus, l'appui sur les touches fléchées autorisera le déplacement du 
zoom dans la page écran de départ. La touche E permettra de revoir la page écran 
dans son intégralité sans perdre le zoom et la touche S (stop) signifie l'arrêt de 
l’utilisation de la routine. 


La zone dont on désire l'agrandissement sera placée en haut et au milieu de l'écran, 
alors que le zoom occupera la majeure partie du reste. Comme le zoom s'affiche en 
texte, 22 des 25 lignes utilisables lui seront consacrées ; ce qui laisse 3 lignes de texte, 
soit 3 X 8 = 24 lignes de pixels pour la zone en taille réelle. Seules 22 lignes de pixels 
étant zoomées, il restera une ligne en haut et en bas de la partie non agrandie 
permettant de la séparer du reste. 


De même, selon le mode, 20 ou 40 colonnes sont affichables. Or en mode 0, d'après le 
tableau vu au début de cette partie, 20 pixels sont codés sur 10 octets et en mode 1, 
40 pixels sont aussi codés sur 10 octets. Ce qui signifie que, quel que soit le mode en 
cours, une ligne de la zone à agrandir représente en mémoire une suite de 10 octets. 


La méthode utilisée dans cette routine diffère légèrement de celle employée pour la 
précédente. En effet, ici, après avoir sauvé en mémoire le contenu de la mémoire 
écran, il faut rechercher les adresses des octets représentant les lignes de la zone; 
puis nous devrons les transférer à la partie de l'écran où s'affiche la zone en taille 
réelle. 


Une fois cette partie reproduite, il suffira, ligne par ligne, puis colonne par colonne, de 


lire la couleur de chaque pixel; puis on affichera à la place correspondante dans le 
zoom un pavé curseur de la couleur du pixel. 


Ensuite, il faudra attendre la frappe d'une touche qui modifiera, selon le désir, les 
coordonnées de la zone à agrandir. La même procédure que pour le premier affichage 
reprend, et ce jusqu'à l'appui de la touche S. 


Syntaxe : |SUPERZOOM,X,Y 


avec X: coordonnée X en pixels du coin bas et à gauche de la zone à agrandir. 
Y : coordonnée Y en pixels du coin bas et à gauche de la zone à agrandir. 
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Routines système utilisées 


Pour le CPC 464, les adresses équivalentes se trouvent entre parenthèses. 


#B726 (#B285) : pointeur ligne du curseur en mode texte. 
#B727 (#B286) : pointeur colonne du curseur en mode texte. 


#BBOO0 : initialisation du clavier. 

#BB06 : attente de la frappe d'une touche. 
#BB5A : impression d'un caractère. 

#BB90 : fixe l'encre du stylo en mode texte. 
#BBF0 : indique l'encre d'un pixel. 

#BC11 : indique le mode en cours. 

#BC14 : effacement de l'écran. 

#BC1D : indique l'adresse de l'octet d'un pixel. 


Explications 


La routine débute, après le stockage des coordonnées X et Y dans DEPX et DEPY, 
par la recherche du mode en cours, par appel de #BC11, pour fixer des paramètres 
nécessaires à la suite. 


Ces paramètres sont : 


— le pas (PAS) utilisé pour passer des coordonnées absolues d'un pixel à celles du 
pixel voisin. PAS = 2 en mode 1 et 4 en mode 0. C'est le nombre de points par pixel, 


— le nombre de colonnes (NBRCOL) servira à tester l'arrivée à la dernière colonne 
pour chaque ligne du zoom, par comparaison avec le contenu du pointeur de colonne. 
En mode 1, NBRCOL = 39 et en mode 0, NBRCOL = 19 car le pointeur vaut toujours 
un de moins que la position réelle du curseur, 


— COLFEN indique la coordonnée X en pixel du début de la zone de l'écran où se 
trouve la partie zoomée en taille réelle. COLFEN = 140 en mode 1 et 70 en mode 0. 


La routine poursuit par le stockage de la page écran à partir de l'adresse indiquée par 
SAUVEC. Celle-ci peut être modifiée selon l'emplacement du programme ou des 
besoins de disponibilité de la mémoire. Il est également possible d'envisager une 
sauvegarde sur un support magnétique en adaptant la routine dans ce sens. 


Le programme principal commence par un CLS d'écran grâce à #BC14. Ensuite a lieu 
la recopie à l'écran de la zone à zoomer. Pour cela, STO1, STO2, STO3 et STO4 
seront des zones de calculs destinées à contenir les coordonnées des débuts de ligne 
de la partie à agrandir. STO1 et STO2 indiqueront les coordonnées des lignes de la 
zone dans la page écran initiale; STO3 et STO4 contiendront, quant à eux, les 
coordonnées de la même ligne, mais à son emplacement réel à l'écran, là où elle 
figurera pour le zoom. 


Grâce à STO1 et STO2, il est possible de calculer, par #BC1D, l'adresse de stockage 
du début de chaque ligne de la partie à zoomer ; en effet, on commencera par calculer 
l'adresse dans la page écran initiale puis, par soustraction de #C000, l'adresse de 
stockage. 
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STO3 et STOA4 servent à calculer, toujours par #BC1D, l'adresse du début de chaque 
ligne pour la recopie à l'écran. Une fois ces deux adresses déterminées, un LDIR 
transfère 10 octets contenant tous les pixels de la ligne. Ceci se repète jusqu'à la copie 
des 22 lignes de la zone. 


Le zoom peut alors commencer. Les zones STO1 et STO2 contiendront les 
coordonnées absolues des points de la zone à agrandir ; par ailleurs, STO3 et STO4 
serviront à stocker les coordonnées du curseur texte placées par la suite dans les 
pointeurs. 


Pour chaque ligne, la couleur de chacun des pixels est fournie par appel de #BBFO, 
puis donnée au stylo d'écriture de mode texte par #BB90 ; de cette manière on placera 
dans la case correspondante au pixel un pavé curseur (de code ASCII #8F) par la 
routine #BB5A. L'opération se reproduit pour les 22 lignes. 


Ensuite le clavier est initialisé par #BB00 ; puis par appel de #BB06, la routine attend 
la frappe d'une touche, dont le code ASCII sera contenu après la frappe dans le 
registre A. Celui-ci servira, par comparaison, à brancher le programme sur la partie 
correspondant à la touche enfoncée. L'appui sur les flèches provoque, selon le cas, 
l'incrémentation ou la décrémentation des coordonnées en pixel du coin de la zone à 
agrandir, et dans ce cas on retourne en début de routine. 


L'appui de la touche E de code ASCII 101 rétablit l'affichage de l'intégralité de la page 
écran initiale ; la reprise du zoom s'effectuera en frappant une nouvelle flèche. La 
touche S permet quant à elle de quitter le programme, avec réaffichage auparavant de 
la page écran de départ. 


Démonstration 


Là encore, le programme de démonstration utilise la routine sous sa forme d'extension 
BASIC et nécessite également de posséder un fichier contenant une page écran 
(appelé ECRAN.SCR). 


10 MODE m (m = 1 ou O) 

20 INK 1,a: INK 2,b: … (couleurs des numéros d'encres) 
30 LOAD « ECRAN.SCR »,&C000 

40 SUPERZOOM,x,y 


Vous pourrez vérifier que lorsque l'appui sur les touches fléchées gauche ou droite 
provoque la sortie de la page écran, il est possible d'obtenir un effet de scrolling latéral 
avec, cependant, parfois un léger décalage. Par contre, un déplacement trop important 
vers le haut où vers le bas se traduit quant à lui par un scrolling accompagné 
généralement par un grand décalage. 


Tout ceci s'explique par la gestion mémoire des lignes de pixels de l'écran, gestion 
abordée en début de chapitre... 


GRAPHISMES 


Routine « Super- 


Légende : 
O — chiffre zéro 


D — lettre (pour « OUI ») 
N — lettre (pour « NON ») 


CHARGER 
ECRAN 
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zoom» avec déplacement dans l'écran 









Acquérir 
Paramètres 


Recherche 
Mode 


Déterminer 
PAS et 
NB colonnes 






Stockage 


écran 


Stockage 
coordonnées 

















Remplissage Affichage 
Fenêtre —— —-| en haut 
taille réelle d'écran 
Zoom Voir 
de la ——— — + routine 
fenêtre ZOOM 





FRAPPE 


TOUCHE 
? 















INCREMENT 
de X 
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Module de remplissage de la fenêtre en taille réelle 


Légende : 


O — chiffre zéro 
® — lettre (pour « OUI ») 
N — lettre (pour « NON ») 










d'une ligne 


transfert 
de 10 
octets 


DERNIERE 

LIGNE DE 

PIXEL (22) 
7 
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Hisoft GENA3.1 Assembler. 


Pass 1 errors: 00 


10 ;=* ROUTINE SUPER-Z00M CPC 6128 *= 


20 ; 
9AO0 30 ent #9a00 
9A0O0 40 org #9a00 
50: 
60 ;--* TRAITEMENT RSX *-- 
70 ; 
BCDI 80 rsx: equ #bcdl 
9A00 O10A9A 90 ld bc,ext 
9A03 212F9A 100 ld hl,space 
9A06  CDDIBC 110 call rsx 
9A09 C9 120 ret 
9AOA  259A 130 ext: defw nom 
140 ;--* RECUPERATION DES PARAMETRES *-- 
9AOC DD4601 150 ld b,(ix+1) 
9AOF  DD4E00 160 ld c,(ix+0), 
9A12 ED43B19B 170 1d (depy),bc 
9A16 DD5603 180 ld d,(ix+3) 
9A19 DD5E02 190 ld e,(ix+2) 
9A1C ED53AF9B 200 1d  (depx),de 
9A20 FEO2 210 cp 2 
9A22 CO 220 ret nz 
9A23 182B 230 jr rout 
240 ; 
9A25 53555045 250 nom: defm "SUPERZOO" 
9SA2D CD 260 defb "M'+180 
9A2E O0 270 defb 0 
9A2F 280 space: defs 4 
290 ; 
300 ; 
310 ;--* TRAITEMENT CALL *-- 
320 ; 
9A50 330 org #9a50 
340 ; 
5900 350 sauvec: equ #5900 
B726 360 curlig: equ #b726 
B727 370 curcol: equ #b727 
BB0OO 380 inicla: equ #bbO0 
BB06 390 frappe: equ #bb06 
BB5A 400 impcar: equ #bb5a 
BB90 410 encsty: equ #bb90 
BBFO 420 encpix: equ #bbf0 
BC11 430 mode: equ #bcll 


BC14 440 effecr: equ #bcl4 
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BC1D 


9A50 
9A53 
9A55 


9A57 
9SASA 
9ASE 
9A61 
9A65 
9A68 
9A6EC 


9A6E 
9A71 
9A75 
9A78 
9A7C 
9A7F 


9A83 
9A86 
9A89 
9A8C 


9A8E 


9A91 
9A95 
9A99 
9A9C 
9A9F 
9AA3 
9AA7 
AAA 
9AAD 
SAAF 
9ABO 
9AB4 
9AB7 
9ABA 
9ABB 
9ABD 
9ACO 
SACI 
9AC2 
9AC6 


CD11BC 
FEO0 
2817 


010200 
ED43BD9B 
012700 
ED43BF 98 
118C00 
ED53C19B 
1815 


010400 
ED43BD9B 
011300 
ED43BF9B 
114600 
ED53C19B 


2100C0 
110059 
010040 
EDBO 


CD14BC 


ED5BC19B 
ED53B79B 
21B100 
22B99B 
EDS5BAF9B 
ED53B39B 
2AB19B 
22B59B 
3EO1 

F5 
ED5BB39B 
CD1DBC 
1100C0 
A7 

ED52 
110059 
19 

ES 
ED5BB79B 
2AB99B 


450 


460 ; 


470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
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adcoor: equ #bcld 
’ 
;--* RECHERCHE DU MODE *-- 
rout : call mode 
cp  O 
jr z,al 
;--* PAS ET COLONNE POUR MODE 1 *-- 
ld bc,2 
id  (pas),bc 
ld  bc,39 
1d (nbrcol),bc 
ld de,140 
ld  (colfen),de 
jr  stoecr 
;--* PAS ET COLONNE POUR MODE O0 *-- 
al: 1d bc,4 
ld (pas),bc 
ld bc,19 
1d (nbrcol),bc 
id de,70 
ld (colfen),de 
;--* STOCKAGE DE LA PAGE ECRAN EN SAUVEC *-- 
stoecr: ld h1l,#c000 
ld de,sauvec 
ld  bc,#4000 
ldir 
;--* CLS DE L'ECRAN *-- 
remfen: call effecr 


;--* REMPLISSAGE DE LA FENETRE *-- 


a2: 


ld 
ld 
ld 
ld 
1d 
ld 
ld 
ld 
ld 
push 
ld 
call 
ld 
and 
sbc 
ld 
add 
push 
ld 
ld 


de,(colfen) 
(sto3),de 
h1,177 
(sto4),hl 
de, (depx) 
(stol),de 
h1, (depy) 
(sto2),hl 
a, 1 

af 
de,(stol) 
adcoor 
de, #c000 
a 

hl,de 

de ,sauvec 
h1,de 

hl 
de,(sto3) 
h1,(sto4) 
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9SAC9 CDIDBC 940 call adcoor 
9ACC DI 950 pop de 
9ACD EB 960 ex de,hl 
9ACE  O10A00 970 ld bc,10 
9AD1 EDBO 980 ldir 
9AD3 2AB99B 990 ld h1l,(sto4) 
9AD6 23 1000 inc hl 
9AD7 22B99B 1010 ld (sto4),hl 
9ADA 2AB59B 1020 id hl,(sto2) 
9ADD 23 1030 inc hl 
9ADE 22B59B 1040 ld (sto2),hl 
9AE1 F1 1050 pop af 
9AE2 3C 1060 inc a 
9AE3 FE17 1070 cp 23 
9AES5 20C8 1080 jr  nz,a2 
9AE7 1800 1090 jr zoom 

1100 ; 


1110 ;--* 700M DE LA FENETRE *-- 
9AE9 111800 1120 zoom: ld de,24 


9AEC ED53B99B 1130 id  (sto4),de 
9AFO 216201 1140 ld h1,354 
9AF3 1802 1150 ir a2 
9AF5 1897 1160 pont:  jr  remfen 
9AF7 22B59B 1170 a3: ld (sto2),nl 
9SAFA E5 1180 push h1l 
9AFB  3E00 1190 1d a,0 
9AFD 32B79B 1200 ld (sto3),a 
9B00 111801 1210 ld de,280 
9803 ED53B39B 1220 ld (stol),de 
9B07 CD789B 1230 call zoomli 
9BOA 21B99B 1240 1d hl,sto4 
9BOD 3E03 1250 ld a,3 
9B0F BE 1260 Cp (h1) 
9B10 2806 1270 jr z,a4 
9B12 35 1280 dec (h1) 
9B13 El 1290 pop h1l 
9Bl4 23 1300 inc hl 
9B15 23 1310 inc hl 
9B16 18DF 1320 jr a3 
9818 D1 1330 a4: pop de 

1340 ;--* ATTENTE FRAPPE TOUCHE *-- 
9B19  CDOOBB 1350 call inicla 
9B1C CDO6BB 1360 touche: call frappe 
9B1F FE65 1370 Cp 101 
9B21 CC6C9B 1380 call z,fin 
9B24 FE73 1390 Cp 115 
9826 2844 1400 jr z,fin 
9B28 FEF3 1410 cp #f3 


9B2A 280E 1420 jr z,droite 
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9B2C 
9B2E 
9B30 
9B32 
9B34 
9B36 
9B38 


9B3A 
9B30 
9B40 
9B41 
9B44 


9B46 
9B49 
9B4A 
9B4B 
9B4C 
9B4D 
9B50 


9B52 
9855 
9B56 
9B57 
9858 
9B59 
9B5C 


9B5E 
9B61 
9B64 
9B65 
9B67 
9B6A 


9B6C 
9B6F. 
9872 
9875 
9877 


9B78 
9B7B 
987F 
9B82 


FEFI 
2816 
FEF2 
282A 
FEFO 
281A 
18E2 


2AAF9B 
110800 
19 
22AF9B 
18AF 


2AB19B 
2B 

2B 

2B 

2B 
22B19B 
18A3 


2AB19B 
23 

23 

23 

23 
22B19B 
1897 


2AAF9B 
110800 
A7 
ED52 
22AF9B 
1889 


210059 
1100C0 
010040 
EDBO 
C9 


2AB59B 
ED5BB39B 
CDFOBB 
CD90BB 


1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 


1790 ; 


1800 
1810 
1820 
1830 
1840 
1850 


1860 ; 


1870 
1880 
1890 
1900 
1910 
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Cp 
Lis 
CP 
jr 
CP 
TL 
jr 
;--* VERS LA 
droite: ld 
ld 
add 
ld 
jr 
;--* VERS LE 
bas: 1d 
dec 
dec 
dec 
dec 
ld 
ir 
;--* VERS LE 
haut : ld 
inc 
inc 
inc 
inc 
ld 
jr 
;--* VERS LA 
gauche: id 
ld 
and 
sbc 
ld 
jr 


, 


F1 

z,bas 
F2 
zZ,gauche 
1FFO 
z,haut 
touche , 
DROITE *-- 
h1, (depx) 
de,& 
h1l,de 
(depx),h1 
pont 

BAS *-- 
h1, (depy) 
hl 

h1 

hl 

hl 
(depy),h1 
pont 

HAUT #-- 
h1, (depy) 
pl 

hl 

hl 

hl 
(depy),h1 
pont 
GAUCHE *-- 
h1, (depx) 
de,8 

a 

hl,de 
(depx),h1 
pont 


;--* FIN D'UTILISATION *-- 


1d 
1d 
1d 
ldir 
ret 


fin: 


hl,sauvec 
de, #c000 
bc, #4000 


;--* ZOOM D'UNE LIGNE *-- 


ld 
1d 
call 
call 


zoomli: 


h1,(sto2) 
de,(stol) 
encpix 
encsty 


GRAPHISMES 
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9B85 3AB79B 1920 ld a,(stoz) 
9B88 322787 1930 ld  (curcol),a 
9B8B  3AB995B 1940 ld a,(sto4) 
9B8E 3226B7 1950 ld  (curlig),a 
9B91 3E8F 1960 ld a,#8f. 
9893 CD5ABB 1970 call impcar 
9B96 3AB79B 1980 ld a,(sto3) 
9B99 21BF9B 1990 id hl,nbrcol 
9B9C BE 2000 cp (hl) 
9B9D C8 2010 ret 2z 
9B9SE  3C 2020 inc a 
9B9F  32B79B 2030 1d  (sto3),a 
9BA2 EDS5BB39B 2040 ld de,(stol) 
9BA6  2ABD9B 2050 ld h1l,(pas) 
9BA9 19 2060 add hl,de 
9BAA  22B39B 2070 ld (stol),hl 
9BAD 18C9 2080 . jr zoomli 

2090 ; 
9BAF 2100 depx: defs 2 ;COOR X ZONE 
9BB1 2110 depy:  defs 2 ;COOR Y ZONE 
9BB3 2120 stol: defs 2 3 ZONE DE CALCUL 
9BB5 2130 sto2: defs 2 ; ZONE DE CALCUL 
9BB7 2140 sto3: defs 2 ;ZONE DE CALCUL 
9BB9 2150 sto4: defs 2 ; ZONE DE CALCUL 
9BBB 2160 coox: defs 1 ; STOCK COR X 
9BBC 2170 cooy:  defs 1 ; STOCK COUR Y 
9BBD 2180 pas: defs 2 ;PAS POUR COLON 
9BBF 2190 nbrcol: defs 2 ;NBRE COL. TEXTE 
9BC1 2200 colfen: defs 2 ;COOR X FENETRE 


Pass 2 errors: 00 


al 9A6E  a2 SAAF a3 9AF7 
a4 9B18 adcoor BCI1D bas 9B46 
colfen 9BC1 coox 9BBB cooy  9BBC 
curcol B727 curlig B726 depx  9BAF 
depy  9BB1 droite 9B3A effecr BCl4 
encpix BBFO encsty BB90 ext 9AOA 
fin 9B6C frappe BB06 gauche 9B5E 
haut  9B52 impcar BB5A inicla BBOO 
mode  BCI11 nbrcol 9BBF nom 9A25 
pas 9BBD pont  9AF5 remfen 9A8E 
rout  9A50 rsx BCD1 sauvec 5900 
space 9A2F stol 9BB3 sto2  9BB5 
sto3 9BB7 sto4 9BB9 stoecr 9A83 
touche 9B1C zoom 9AE9 zoomli 9B78 


Table used: 498 from 900 
Executes: 39424 


CHAPITRE 5 


MATHÉMATIQUES 


GÉNÉRALITÉS 


L'objet de ce chapitre est de proposer, à l'utilisateur, une série de routines effectuant 
l'application numérique de formules mathématiques après l'envoi des paramètres 
adéquats. 


Bien sûr, nombre de formules manquent à l'appel. Notre propos étant, non pas de faire 
une liste exhaustive, mais de fournir un moule pouvant être adapté pour n'importe quel 
besoin. 


Dans ce sens, la programmation a été simplifiée à l'extrême, avec une utilisation 
maximale des routines mathématiques du système. Là où une programmation plus 
pointue aurait permis de gagner quelques octets, nous avons choisi la clarté d'un 
appel à une adresse connue effectuant le même travail. 


Cinq routines seront étudiées, traitant des formules d'aire, de volume, d'électricité, de 
physique et, pour terminer, de quelques calculs comme la résolution d'équations du 
second degré ou le calcul de somme d'éléments de suites numériques. 


Le principe sera, quelle que soit la routine, de la présenter sous forme de RSX. Après 
le nom de l'extension suivront le numéro de la formule concernée et les adresses des 
paramètres. Pourquoi ne pas envoyer directement les paramètres comme nous le 
faisions dans le cas des routines graphiques ? La réponse est simple. On ne peut pas 
transmettre à un programme en langage machine, par l'intermédiaire d'un CALL, des 
paramètres dont le codage nécessite plus de 2 octets, donc des paramètres autres 
qu'entiers. 


Dans le programme BASIC, il sera obligatoire de définir les paramètres par une 
variable. L'adresse de celle-ci est fournie en employant le signe @. Par exemple, si 
vous désirez appliquer la deuxième formule de la routine PHYSIQUE utilisant 3 
paramètres a, b et c, la syntaxe sera : |PHYSIQUE,2,@a,@b,@c, en ayant auparavant 
attribué à a, b et c leurs valeurs respectives. 
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La routine débutera toujours par la réception des paramètres. Leurs adresses seront 
stockées dans les zones STOi et leurs valeurs dans -les zones CALCi. Pour 
reconnaître la formule à utiliser, son numéro sera stocké dans FONCT. 


Pour chacune des huit formules, on place le numéro correspondant dans le registre À 
et on le compare avec le contenu de FONCT jusqu'à ce qu'on obtienne le même. Le 
nombre de paramètres, mis en pile en début de programme, est alors comparé avec le 
nombre théorique afin de vérifier si tous ont été fournis. Dans ce cas, la suite de la 
routine peut s'exécuter. 


En règle générale, le résultat des calculs se retrouvera à l'adresse du premier 
paramètre, grâce à un sous-programme appelé FIN. Dans l'exemple précédent, la 
réponse sera stockée dans la variable a définie comme étant le premier paramètre. 


Routines système utilisées 


Entre parenthèses figurent les adresses correspondant au CPC 464, les autres étant 
celles du CPC 6128. 


#BD61 (#BD3D) : 
#BD64 (#BD40) : 
#BD6A (#BD46) : 
#BD79 (#BD55) : 


#BD7C (#BD58) 


#BDAC (#BD88) 


copie d'un nombre en FLOTTANT. 
conversion ENTIER en FLOTTANT. 
conversion FLOTTANT en ENTIER. 
multiplication par une puissance de 10. 


: addition en FLOTTANT. 
#BD82 (#BD5B) : 
#BD85 (#BD61) : 
#BD88 (#BD64) : 
#BD8E (#BD6A) : 
#BD91 (#BD6D) : 
#BD94 (#BD70) : 
#BD97 (#BD73) : 
#BD9A (#BD76) : 
#BD9D (#BD79) : 
#BDAO (#BD7C) : 


soustraction en FLOTTANT. 

multiplication en FLOTTANT. 

division en FLOTTANT. 

comparaison de 2 nombres en FLOTTANT. 
inversion du signe d'un nombre en FLOTTANT. 
test du signe d'un nombre en FLOTTANT. 
choix de l'unité d'angle. 

détermination de PI. 

racine d'un nombre en FLOTTANT. 

élévation d'un nombre à la puissance. 


: calcul du sinus d'un angle. 
#BDAF (#BDB8B) : 


calcul du cosinus d'un angle. 
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AIRES 










NUMERO NOMBRE 
FONCTION FIGURE PARAMETRES FORMULES 
1 TRIANGLE B base Bxh/2 
h hauteur 
LOSANGE a grd diag axb/2 
b pte diag 
TRAPEZE 3 a grd base (a+b)xh/2 
b pte base 
h hauteur 


MCE 
PAROI DE 2 R ray base RXAXpi 
CONE A générat. 


PAROI DE 
CYLINDRE 













R ray base 
h hauteur 


2XpixRXh 





Aire d’un triangle 


AIRE, 1,@B,@H À = Bxh/2 


En entrée : B base du triangle. 
h hauteur associée à la base. 


En sortie : B aire du triangle. 


L'aire du triangle se retrouvera, après exécution de la routine, à l'adresse contenant B 
lors de la création des variables. 


258 RSX ET ROUTINES ASSEMBLEUR SUR AMSTRAD CPC 


Aire d’un losange 
[AIRE,2,@a,@b A = axb/2 


En entrée : a grande diagonale. 
b petite diagonale. 


En sortie : a aire du losange. 
Noter que la formule étant identique à celle du triangle, c’est celle-ci qui est utilisée 
pour effectuer le calcul d'aire. 


Aire d’un trapèze 


lAIRE,3,@a,@b,@h A = (a+b)xh/2 


En entrée : a petite base. 
b grande base. 
h hauteur. 


En sortie : a aire du trapèze. 


Aire d’un disque 
lAIRE,4,@R A = 2xpixR 
En entrée: a rayon du cercle. 


En sortie : R aire du disque. 


Aire d’une sphère 

lAIRE,5,@R À = 4XpixR°2 
En entrée : R rayon de la sphère. 

En sortie : R aire de la sphère. 


L'aire d'une sphère correspond bien entendu à l'aire de la paroi de la sphère. 


Aire d’une ellipse 


lAIRE,6,@a,@b A = axbxpi 


En entrée : a premier demi-axe. 
b deuxième demi-axe. 


En sortie : a aire de l'ellipse. 


Aire de la paroi d’un cône 
lAIRE,7,@R,@A A = RxXAxpi 


En entrée : R rayon de la base. 
A génératrice du cône. 


En sortie : R aire de la paroi. 
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Aire de la paroi d’un cylindre 
lAIRE,8,@R,@h A = 2xpixRxh 


En entrée : R rayon de la base. 
A hauteur du cylindre. 


En sortie : a aire de la paroi. 


La paroi d'un cylindre est en fait, une fois étalée, un rectangle dont la longueur 
représente le périmètre du cercle de base, et la largeur la hauteur du cylindre. 


Hisoft GENA3.1 Assembler. 
Pass 1 errors: O0 


10 ;=* ROUTINE AIRE CPC 6128 +*- 


20 ; 
8000 30 ent  #8000 
8000 40 org #8000 
50 ; 
60 ;--* TRAITEMENT RSX *-- 
70 ; 
BCDI 80 rsx: equ #bcdl 
8000 010A80 90 ld bc,ext 
8003 216280 100 ld hl,space 
8006 CDDI1BC 110 call rsx 
8009 C9 120 ret 
800A  5D80 130 ext: defw nom 


140 ;--* RECUPERATION DES PARAMETRES *-- 
150 ;--* TEST SI 4 PARAMETRES *-- 


800C F5 160 push af 
800D FEO4 170 cp 4 
800F 2014 180 jr nz,al 
8011 DD6601 190 1d h,(ix+l) 
8014 DD6E00 200 1d 1,(ix+0) 
8017 22C881 210 ld (sto3),hl 
801A 11D481 220 ld de,calcz 
801D CDB181 230 call stock 
8020 DD23 240 inc ix 
8022 DD23 250 inc ix 
8024 3D 260 dec a 

270 ;--* TEST SI 3 PARAMETRES *-- 
8025 FE03 280 al: cp 3 
8027 2014 290 jr nz,a2 
8029 DD6601 300 ld h,(ix+1) 
802C DD6E00 310 ld 1,(ix+0) 


802F 22C681 320 ld  (sto2),hl 
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8032 11CF81 330 ld de,calc2 
8035 CDB181 340 call stock 
8038 DD23 350 inc ix 
803A DD23 360 inc ix 
803C 3D 370 dec a 

380 ;--* TEST SI 2 PARAMETRES *-- 
8030 FEO2 390 a2: cp 2 
803F 201A 400 jr nz,a3 
8041 DD6601 410 ld h,(ix+l) 
8044 DD6E00 420 1d 1,(ix+0) 
8047 22C481 430 ld (stol),hl 
804A 11CA81 440 ld de,calcl 
804D CDB181 450 call stock 
8050 DD6603 460: id h,(ix+3) 
8053 DD6E02 470 ld 1,(ix+2) 
8056 22DE81 480 ld  (fonct),hl 
8059 1825 490 jr  rout 
805B F1 500 a3: pop af 
805C C9 510 ret 

520 ; 
805D 414952 530 nom: defm "AIR" 
8060 C5 540 defb "E'+/#80 
8061 00 550 defb O 
8062 560 space: defs 4 

570 ; 

580 ; 

590 ;--* TRAITEMENT CALL *-- 

600 ; 
8080 610 org #8080 

620 ; 
BD64 630 entflo: equ #bd64 
BD7C 640 additi: equ #bd7c 
BD85 650 multip: equ #bd85 
BD88 660 divise: equ #bd88 
BD9A 670 pi: equ #bd9a 

680 ; 

690 ;--* AIRE D'UN TRIANGLE *-- 
8080 3EO01 700 rout: ld a,1l 
8082 21DE81 710 ld hl,fonct 
8085 BE 720 cp  (hl) 
8086 2024 730 jr nz,losang 
8088 F1 740 a4: pop af 
8089 FEO3 750 cp 3 
808B CO 760 ret nz 
808C 21CA81 770 ld hl,calcl 
808F 11CF81 780 ld de,calc2 
8092 CD85BD 790 call multip 
8095 AF 800 xOT a 


8096 210200 810 ld h1,2 
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8099 11D481 
809C CD64BD 
809F 21CA81 
80A2 11D481 
80A5  CD88BD 
808 CDB781 
80AB C9 


80AC 3E02 
80AE 21DE81 
80B1 BE 
80B2 2002 
80B4 18D2 


80B6 3E03 
80B8 21DE81 
80BB BE 
80BC 2027 
80BE F1 
80BF FEO4 
80C1 CO 
80C2 AF 
80C3 210200 
80C6 11D981 
80C9 CD64BD 
80CC 21CA81 
80CF 11CF81 
80D2 CD7CBD 
8005 110481 
80D8 CD85BD 
80DB 11D981 
80DE  CD88BD 
80E1 CDB781 
80E4 C9 


80E5 3E04 
80E7 21DE81 
80EA BE 
80EB 2010 
80ED F1 
80EE FEO2 
80F0O CO 
80F1 21CF81 
80F4 CD9ABD 
80F7 21CA81 
80FA 11CA81 
80FD CD85BD 
8100 11CF81 
8103 CD85BD 


820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 


1120 


1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 


ld de,calcz3 
call entflo 
ld hl,calcl 
ld de,calc3 
call divise 
call fin 
ret 
;--* AIRE D'UN LOSANGE *-- 
losang: 1d a,2 
id hl,fonct 
cp (hl) 
jr  nz,trapez 
jr ad 
;--* AIRE D'UN TRAPEZE *-- 
trapez: 1d a,3 
ld hl,fonct 
cp (hl) 
jr nz,cercle 
pop af 
cp 4 
ret nz 
XOT a 
ld h1,2 
id de,calc4 
call entflo 
id hl,calcl 
ld de,calc2 
call additi 
ld de,calc3 
call multip 
ld de,calc4 
call divise 
call fin 
ret 
;--* AIRE D'UN CERCLE *-- 
cercle: 1d a,4 
id hl,fonct 
cp (h1l) 
jr nz,sphere 
pop af 
cp 2 
ret nz 
id hl,calc2 
call pi 
ld hl,calcl 
id de,calcl 
call multip 
ld de,calc2 
call multip 


261 
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8106 CDB781 1310 call fin 
8109 C9 1320 ret 

1330 ;--* AIRE D'UNE SPHERE *-- 
810A 3E05 1340 sphere: 1d a,5 
810C 21DE81 1350 id hl,fonct 
810F BE 1360 cp  (h1) 
8110 202D 1370 jr nz,ellips 
8112 F1 1380 pop af 
8113 FEO2 1390 cp 2 
8115 CO 1400 ret nz 
8116 21CF81 1410 ld hl,calc2 
8119 CD9ABD 1420 call pi 
811C AF 1430 XOT a 
811D 210400 1440 ld hl,4 
8120 11D481 1450 ld de,calcz 
8123 CD64BD 1460 call entflo 
8126 21CA81 1470 ld hl,calcl 
8129 11CA81 1480 ld de,calcl 
812C CD85BD 1490 call multip 
812F 11CF81 1500 ld de,calc2 
8132 CD85BD 1510 call multip 
8135 11D481 1520 ld de,calcz3 
8138 CD85BD 1530 call multip 
813B CDB781 1540 call fin 
813E C9 1550 ret 

1560 ;--* AIRE D'UNE ELLIPSE *-- 
813F 3E06 1570 ellips: ld a,6 
8141 21DE81 1580 id hl,fonct 
8144 BE 1590 cp (hl) 
8145 2010 1600 jr  nz,cone 
8147 F1 1610 pop af 
8148 FEO3 1620 cp 3 
814A CO 1630 ret nz 
814B 21D481 1640 ld hl,calcz 
814E CD9ABD 1650 call pi 
8151 21CA81 1660 ld hl,calcl 
8154 11CF81 1670 ld de,calc2 
8157 CD85BD 1680 call multip 
815A 11D481 1690 ld de,calcz 
815D CD85BD 1700 call multip 
8160 CDB781 1710 call fin 
8163 C9 1720 ret 

1730 ;--* AIRE DE LA PAROI D'UN CONE *-- 
8164 3E07 1740 cone: id a,7 
8166 21DE81 1750 id h1,fonct 
8169 BE 1760 cp (hl) 
816A 201D 1770 jr nz,cylind 
816C F1 1780 pop af 


816D FEO3 1790 cp 3 
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816F 
8170 
8173 
8176 
8179 
817C 
817F 
8182 
8185 
8188 


8189 
818B 
818E 
818F 
8190 
8191 
8193 
8194 
8197 
819A 
819D 
81A0 
81A3 
81A4 


81A7 
81AA 
81AD 
81B0 


81B1 
81B4 
81B6 
81B7 
81BA 
81BE 
81C1 
81C3 


81C4 
81C6 
81C8 
81CA 
81CF 
81D4 
8109 
81DE 


CO 

21D481 
CD9ABD 
21CA81 
11CF81 
CD85BD 
110481 
CD85BD 
CDB781 
C9 


3E08 
21DE81 
BE 

CO 

FI 
FEO3 
CO 
21D481 
CD9ABD 
11D481 
CD7CBD 
11CA81 
EB 
CD85BD 


11CF81 
CD85BD 
CDB781 
C9 


010500 
EDBO 

C9 
21CA81 
ED5BC481 
010500 
EDBO 

C9 


1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 


2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 


2180 ; 


2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 


ret 
ld 
call 
ld 
ld 
call 
1d 
call 
call 
ret 


;--* AIRE DE 
cylind: ld 


stock: 


fin: 


? 
stol: 
sto2: 
sto3: 
calcl: 
calc2: 
calc3: 
calc4: 
fonct: 


id 
CP 
ret 
pop 
CP 
ret 
ld 
call 
1d 
call 
ld 
ex 
call 
ld 
call 
call 
ret 


ld 
ldir 
ret 
1d 
ld 
ld 
ldir 
ret 


defs 
defs 
defs 
defs 
defs 
defs 
defs 
defs 


nz 
hl,calc3 
pi 
hl,calcl 
de,calc2 
multip 
de,calcz 
multip 
fin 


LA PAROI 
a,8 

h1, fonct 
(h1) 

nz 

af 

3 

nz 
hl,calc3 
pi 
de,calc3 
additi 
de,calcl 
de,hl 
multip 
de,calc2 
multip 
fin 


bc,5 


hl,calcl 
de,(stol) 
bc,5 


N Ur Uri Uri U1 NO ON ON 


D'UN CYLINDRE *-- 
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Pass 2 errors: 00 


al 8025 a2 8030 a3 805B 
a 8088 additi BD7C calcl 81CA 
calc2 81CF calc3 81D4 calc4 81D9 
cercle 80E5 cone 8164 cylind 8189 
divise BD88 ellips 813F entflo BDé64 
ext 800A fin 81B7 fonct 81DE 
losang 80AC multip BD85 nom 8050 
pi BD9A rout 8080 rsx BCD1 
space 8062 sphere 810A stol  81C4 
sto2 81C6 sto3 81C8 stock S81B1 
trapez 80B6 


Table used: 367 from 900 
Executes: 32768 


VOLUMES 


MATHÉMATIQUES 265 
NUMERO NOMBRE 
FONCTION FIGURE PARAM. FORMULES 
3 PRISME DROIT 2 B aire base Bxh 
h hauteur 
4 CONE DROIT 2 R ray base pixhxR"2/3 
h hauteur 














PARAMETRES 











A côté 








5 CONE 3 a ray BASE pixh(a2+ab+b°2 
TRONQUE b ray base 
h hauteur 


a longueur 
b largeur 
h hauteur 















LS PARALLELEPI. 3 
PYRAMIDE 2 


B base 
h hauteur 





CYLINDRE R ray base 


h hauteur 


Volume d’un cube 
[VOLUME 1,@A V = A3 
En entrée : À arête du cube. 


En sortie : À volume du cube. 


Volume d’une sphère 
|[VOLUME,2,@R V = 4xpixR°3/3 
En entrée : R rayon de la sphère. 


En sortie : R volume de la sphère. 
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Volume d’un prisme droit 
IVOLUME,3,@B,@h V=Bxh 


En entrée : B aire de la base. 
h hauteur du prisme. 


En sortie : B volume du prisme. 


Un prisme droit est un volume formé d'une base plane quelconque, d'aire B et de 
bords droits, c'est-à-dire perpendiculaires par rapport à la surface de base. La surface 
fermant le prisme est bien sûr identique à celle de base et lui est parallèle. 


Volume d’un cône droit 
|VOLUME,4,@R,@h V = pixR°2xh/3 


En entrée : R rayon de la base. 
h hauteur du cône. 


En sortie : R volume du cône. 


La formule permettant de calculer le volume d'un cône penché est identique à celle-ci. 
Mais dans ce cas, la hauteur ne représente plus la distance entre le sommet du cône 
et le centre du disque de base, mais la distance entre le sommet du cône et le plan 
contenant le disque de base. 


Volume d’un cône tronqué 
[VOLUME,,5,@ a,@b,@h V = pixhx(a"2 + axb + b°2)/3 


En entrée : a rayon grande base. 
b rayon petite base 
h hauteur du cône. 


En sortie : a volume du cône tronqué. 


Un cône tronqué est un cône étêté. C'est donc un cône normal auquel on aurait retiré 
au sommet un cône de rayon de base b. 


A noter que dans la routine, les paramètres a et b étant utilisés deux fois, ils sont alors, 
en début d'exécution, recopiés dans CALC6 et CALC7. 


Volume d’un parallélépipède 


|VOLUME.,6,@ a,@b,@h V=axbxh 


En entrée : a longueur de la base. 
b largeur de la base. 
h hauteur. 


En sortie : a volume du parallélépipède. 


Le volume d'un parallélépipède dont les bords verticaux ne sont plus droits par rapport 
à la surface de base est obtenu par la même formule. h représente alors la distance 
entre les deux surfaces horizontales. 
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Volume d’une pyramide 


VOLUME, 7,@B,@h V=Bxh/3 


En entrée : B aire de la base. 
h hauteur de la pyramide. 


En sortie : B volume de la pyramide. 


Volume d’un cylindre 
VOLUME, 8,@R,@h V = pixR"2xh 


En entrée : R rayon de la base. 
h hauteur du cylindre. 


En sortie : R volume du cylindre. 


Le volume du cylindre est obtenu par la multiplication de l'aire de base par la hauteur. 
La surface de base étant un disque de rayon R, son aire est pixXR”2. 


Hisoft GENA3.1 Assembler. 


Pass 1 errors: O0 


10 ;=* ROUTINE VOLUME CPC 6128 *- 


20 ; 
8000 30 ent  #8000 
8000 40 org #8000 
50::; 
60 ;--* TRAITEMENT RSX *-- 
70 ; 
BCD 80 rsx: equ #bcdl 
8000 010A80 90 ld bc,ext 
8003 216480 100 ld hl,space 
8006 CDDIBC 110 call rsx 
8009 C9 120 ret 
800A  5D80 130 ext: defw nom 


140 ;--* RECUPERATION DES PARAMETRES *-- 
150 ;--* TEST SI 4 PARAMETRES *-- 


800€ F5 160 push af 

8000 FEO4 170 cp 4 

800F 2014 180 jr nz,al 
8011 DD6601 190 ld h,(ix+1) 
8014 DD6E00 200 ld 1,(ix+0) 
8017 223482 210 1d (sto3),hl 
801A 114082 220 ld  de,calcz 
801D CD1D82 230 call stock 


8020 DD23 240 inc ix 


268 RSX ET ROUTINES ASSEMBLEUR SUR AMSTRAD CPC 


8022 DD23 250 inc ix 
8024 3D 260 dec a 

270 ;--* TEST SI 3 PARAMETRES *-- 
8025 FEO3 280 al: cp 3 
8027 2014 290 jr nz,a2 
8029 DD6601 300 ld h,(ix+l) 
802C DD6E00 310 ld 1,(ix+0) 
802F 223282 320 ld (sto2),hl 
8032 113B82 330 ld de,calc2 
8035 CD1D82 340 call stock 
8038 DD23 350 inc ix 
803A DD23 360 inc ix 
803C 3D 370 dec a 

380 ;--* TEST SI 2 PARAMETRES *-- 
8030 FEO2 390 a2: cp 2 
803F 201A 400 jr  nz,a3 
8041 DD6601 410 4 id h,(ix+1) 
8044 DD6E00 420 ld 1,(ix+0) 
8047 223082 430 ld  (stol),hl 
804A 113682 440 ld de,calcl 
8040 CD1D82 450 call stock 
8050 DD6603 460 ld h,(ix+3) 
8053 DD6E02 470 ld 1,(ix+2) 
8056 225982 480 1d  (fonct),hl 
8059 1825 490 jr  rout 
805B F1 500 a3: pop af 
805C C9 510 ret 

520 ; 
805D 564F4C55 530 nom: defm ‘"VOLUM" 
8062 C5 540 defb "E'4+480 
8063 O0 550 defb 0 
8064 560 space: defs 4 

570 ; 

580 ; 

590 ;--* TRAITEMENT CALL *-- 

600 ; 
8080 610 org #8080 

620 ; 
BD61 630 copie: equ #bdél 
BDé64 640 entflo: equ #bd64 
BD7C 650 additi: equ #bd7c 
BD85 660 multip: equ #bd85 
BD88 670 divise: equ #bd88 
BD9A 680 pi: equ #bd9a 
BDAO 690 puiss: equ #bda0 

700 ; 

710 ;--* VOLUME D'UN CUBE *-- 
8080 3E01 720 rout: ld a,1 


8082 215982 730 ld hl,fonct 


MATHÉMATIQUES 


8085 BE 740 cp (hl) 
8086 2020 750 jr nz,sphere 
8088 F1 760 cube: pop af 
8089 FEO2 770 cp 2 
808B CO 780 ret nz 
808C 113682 790 ld de,calcl 
808F  213B82 800 ld hl,calc2 
8092 CD61BD 810 call copie 
8095 213682 820 id hl,calcl 
8098 113682 830 ld de,calcl 
809B CD85BD 840 call multip 
809E 113B82 850 ld de,calc2 
80A1 CD85BD 860 call multip 
80A4 CD2382 870 call fin 
80A7 C9 880 ret 

890 ;--* VOLUME D'UNE SPHERE *-- 
80A8 3E02 900 sphere: 1ld  a,2 
80AA 215982 910 id hl,fonct 
80AD BE 920 cp (h1l) 
80AE  203D 930 jr nz,prisme 
80B0 F1 940 pop af 
80B1 FEO2 950 cp 2 
80B3 CO 960 ret nz 
80B4 AF 970 xOTr a 
80B5 210400 980 id h1,4 
80B8 113B82 990 ld de,calc2 
80BB CD64BD 1000 call entflo 
80BE AF 1010 xor a 
80BF 210300 1020 id h1,3 
80C2 114082 1030 ld de,calcz 
80C5 CD64BD 1040 call entflo 
80C8 214582 1050 id hl,calc4 
80CB CD9ABD 1060 call pi 
80CE 213682 1070 id hl,calcl 
80D1 114082 1080 ld de,calcz 
80D4  CDAOBD 1090 call puiss 
80D7 113B82 1100 ld de,calc2 
80DA CD85BD 1110 call multip 
80DD 114582 1120 ld de,calc4 
80E0 CD85BD 1130 call multip 
80E3 114082 1140 ld de,calcz 
80E6 CD88BD 1150 call divise 
80E9 CD2382 1160 call fin 
80EC C9 1170 ret 

1180 ;--* VOLUME D'UN PRISME *-- 
80ED 3E03 1190 prisme: ld a,3 
80EF 215982 1200 id hl,fonct 
80F2 BE 1210 cp (hl) 


80F3 2011 1220 jr nz,conedt 


80F5 
80F6 
80F 8 
80F9 
80FC 
80FF 
8102 
8105 


8106 
8108 
810B 
810C 
810E 
810F 
8111 
8112 
8113 
8116 
8119 
811C 
811F 
8122 
8125 
8128 
812B 
812E 
8131 
8134 
8137 
813A 
8130 


8140 
8142 
8145 
8146 
8148 
8149 
814B 
814C 
814F 
8152 
8153 
8156 
8159 
815C 
815F 
8162 


FI 
FEO3 
CO 
213682 
113B82 
CD85BD 
CD2382 
C9 


3E04 
215982 
BE 
2032 
F1 
FEO3 
Co 

AF 
210300 
114582 
CD64BD 
214082 
CD9ABD 
213682 
113682 
CD85BD 
113B82 
CD85BD 
114082 
CD85BD 
114582 
CD88BD 
CD2382 


3E05 
215982 
BE 
2063 
F1 
FEO4 
Co 
214582 
CD9ABD 
AF 
210300 
114A82 
CD64BD 
113682 
214F82 
CD61BD 


1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 


RSX ET ROUTINES ASSEMBLEUR SUR AMSTRAD CPC 


pop 
CP 
ret 
ld 
ld 
call 
call 
ret 


af 

3 

nz 
hl,calcl 
de,calc2 
multip. 
fin 


3--* VOLUME D'UN CONE DROIT *-- 


conedt: 1d 
ld 
CP 
jr 
Pop 
CP 
ret 
xOr 
ld 
ld 
call 
ld 
call 
1d 
ld 
call 
ld 
call 
ld 
call 
ld 
call 
call 


a,4 
h1, fonct 
(h1) 
nz,conetq 
af 


nz 
a 

h1,3 
de,calc4 
entflo 
hl,calc3 
pi 
hl,calcl 
de,calcl 
multip 
de,calc2 
multip 
de,calc3 
multip 
de,calc4 
divise 
fin 


3--* VOLUME D'UN CONE TRONQUE *-- 


conetq: 1d 
ld 
CP 
iL 
Pop 
CP 
ret 
ld 
call 
xOT 
ld 
l1d 
call 
ld 
ld 
call 


a, 

h1l, fonct 
(h1) 
nz,parall 
af 

je 

nz 
hl,calc4 
pi 

a 

h1,3 
de,calc5 
entflo 
de,calcl 
hl,calcé 
copie 
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8165 


8168 
816B 
816E 
8171 
8174 
8177 
817A 
817D 
8180 
8183 
8186 
8189 
818C 
818F 
8192 
8195 
8198 
819B 
819E 
81AI 
81A4 
81A7 
81AA 


81AB 
81AD 
81B0 
81B1 
81B3 
81B4 
81B6 
81B7 
81BA 
81B0 
81C0 
81C3 
81C6 
81C9 


81CA 
81CC 
81CF 
8100 
81D2 
81D3 
81D5 
81D6 
81D7 


113B82 
215482 
CD61BD 
214F82 
114F82 
CD85BD 
215482 
115482 
CD85BD 
213682 
113B82 
CD85BD 
114F82 
CD7CBD 
115482 
CD7CBD 
114082 
CO85BD 
114582 
CD85BD 
114A82 
CD88BD 
CD2382 
C9 


3E06 
215982 
BE 
2017 
F1 
FEO4 
CO 
213682 
113B82 
CD85BD 
114082 
CD85BD 
CD2382 
C9 


3E07 
215982 
BE 
2021 
F1 
FEO3 
CO 

AF 
210300 


1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 


1d 
ld 
call 
ld 

. ld 
call 
ld 
ld 
call 
ld 
1d 
call 
ld 
call 
ld 
call 
ld 
call 
ld 
call 
ld 
call 
call 
ret 


3--* VOLUME D'UN PARALLELEPIPEDE *-- 


parall: ld 
ld 
CP 
jr 
POP 
CP 
ret 
ld 
1d 
call 
ld 
call 
call 
ret 


5--*# VOLUME D'UNE PYRAMIDE *-- 


pyrami: ld 
ld 
CP 
ir 
pop 
CP 
ret 
xOT 
ld 


de,calc2 
hl,calc7 
copie 
hl,calcé 
de,calcé 
multip 
hl,calc7 
de,calc7 
multip 
hl,calcl 
de,calc2 
multip 
de,calcé 
additi 
de,calc7 
additi 
de,calc3 
multip 
de,calc4 
multip 
de,calcs 
divise 
fin 


a,6 

h1, fonct 
(h1) 
nz,pyrami 
af 

4 

nz 
hl,calcl 
de,calc2 
multip 
de,calc3 
multip 
fin 


a,7 
h1,fonct 
(h1) 
nz,cylind 
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81DA 114082 2210 ld de,calcz 
81D0 CD64BD 2220 call entflo 
81E0 213682 2230 id hl,calcl 
81E3 113B82 2240 ld de,calc2 
81E6 CD85BD 2250 call multip 
81E9 114082 2260 ld de,calcz 
81EC CD88BD 2270 call divise 
81EF CD2382 2280 call fin 
81F2 C9 2290 ret 

2300 ;--* VOLUME D'UN CYLINDRE *-- 
81F3 3E08 2310 cylind: 1d a,8 
81F5 215982 2320 id hl,fonct 
81F8 BE 2330 cp (hl1) 
81F9 CO 2340 ret n7 
81FA F1 2350 pop af 
81FB FEO3 2360 cp 3 
81FD CO 2370 ret nz 
81FE 214082 2380 ld hl,calcz 
8201 CD9ABD 2390 call pi 
8204 213682 2400 ld hl,calcl 
8207 113682 2410 ld de,calcl 
820A CD85BD 2420 call multip 
820D 113B82 2430 ld de,calc2 
8210 CD85BD 2440 call multip 
8213 114082 2450 ld de,calc3 
8216 CD85BD 2460 call multip 
8219 CD2382 2470 call fin 
821C C9 2480 ret 

2490 ; 
8210 010500 2500 stock: Id bc,5 
8220 EDBO 2510 ldir 
8222 C9 2520 ret 
8223 213682 2530 fin: id hl,calcl 
8226 ED5B3082 2540 ld de,(stol) 
822A 010500 2550 ld bc,5 
8220 EDBO 2560 ldir 
822F C9 2570 ret 

2580 ; 
8230 2590 stol: defs 2 
8232 2600 sto2: defs 2 
8234 2610 sto3: defs 2 
8236 2620 calcl: defs 5 
823B 2630 calc2: defs 5 
8240 2640 calc3: defs 5 
8245 2650 calc4: defs 5 
824A 2660 calc5: defs 5 
824F 2670 calcé: defs 5 
8254 2680 calc7: defs 5 
8259 2690 fonct: defs 2 


MATHÉMATIQUES 


Pass 2 errors: 00 


al 8025 
additi BD7C 
calc3 8240 
calcé 824F 
conetq 8140 
cylind 81F3 
ext 800A 
multip BD85 
pi BD9A 
pyrami 81CA 
space 8064 
sto2 8232 


Table used: 


a2 
calcl 
calc4 
calc7 
copie 
divise 
fin 
nom 
prisme 
rout 
sphere 
sto3 


431 


Executes: 32768 


803D 
8236 
8245 
8254 
BD61 
BD88 
8223 
805D 
80ED 
8080 
80A8 
8234 


from 


a3 
calc2 
calcs 
conedt 
cube 
entflo 
fonct 
parall 
puiss 
ISX 
stol 
stock 


900 


805B 
823B 
824A 
8106 
8088 
BD64 
8259 
81AB 
BDAO 
BCD1 
8230 
821D 
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ÉLECTRICITÉ 






































































NUMERO NOMBRE 
FONCTION FIGURE PARAM. PARAMETRES FORMULES 
PUISSANCE R résist. 
ELECTRIQUE | intensité 
2 RESISTANCE a résistiv. 
| longueur 
s section 
LOI D'OHM 3 Re résis ext 
GENERATEUR r résis int 
| intensité 
INDUCTION n nbr spire ° 
MAGNETIQUE | intensité 
r ray spire 
FLUX 3 S section 
D'INDUCTION B induction 
a angle 
IMPEDANCE 3 R résist. 
L/R L inductan. 
w pulsation 
7 IMPEDANCE 3 R résist. 
C/R C capacité 
w pulsation 
RESISTANCE 2 R1 résis 1 
EQUIVALENTE R2 résis 2 


Puissance électrique 


|[ELECTRICITE, 1,@R,@I P =Rx/2 


En entrée : R résistance. 
l intensité. 


En sortie : R puissance. 


Cette formule est à rapprocher de la loi d'Ohm : U=RI, or P=UI donc P=RIxI=Rx "2. 
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Résistance 


|[ELECTRICITE,2,@a,@I,@s R = axl/s 


En entrée : a résistivité. 
| longueur. 
s section de conducteur. 


En sortie : a résistance. 


La résistance d'un conducteur est proportionnelle à un coefficient appelé résistivité, 
liée à la matière formant le conducteur, et à sa longueur, mais elle est inversement 
proportionnelle à sa section. Cela signifie que plus la longueur est importante, plus la 
résistance est élevée, mais que plus la section augmente, plus la résistance diminue. 


Loi d'Ohm pour un générateur 


l[ELECTRICITE,3,@Re,@r,@l E = (Re+r)xl 


En entrée : Re résistance du circuit. 
r résistance interne du générateur. 
| intensité. 


En sortie : Re force électromotrice du générateur. 


Pour un récepteur, la même loi se transforme pour devenir : E = (Re-r)xl où Re est 
la résistance du reste du circuit, alors que r est la résistance du récepteur. 


Induction magnétique 
|[ELECTRICITE,4,@I,@r,@n B = 2xpix10"(—-7)xnxl/r 


En entrée : | intensité. 
r rayon d'une spire. 
n nombre de tours de la bobine. 


En sortie : | induction magnétique. 


L'induction magnétique, mesurée en TESLA, est un champ magnétique créé par le 
passage d'un courant d'intensité | dans une bobine constituée de n spires dont le 
rayon fait r. 


Flux d’induction 


[ELECTRICITE,5,@a,@S,@B F = SxBxcos a 
En entrée : a angle. 

S surface. 

B induction. 


En sortie : a flux d’'induction. 


Le flux d'induction magnétique est le produit scalaire entre le vecteur induction 
magnétique et le vecteur normal d'une surface. Il se mesure en WEBER. 
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Impédance d’un circuit bobine-résistance 
[ELECTRICITE,6,@R,@L,@w Z = V(R?2 + L'2xw2) 


En entrée : R résistance. 
L inductance. 
w pulsation. 


En sortie : R impédance. 


L'impédance d'un circuit soumis à un courant sinusoïdal dépend des éléments qui le 
composent : résistance, bobine, capacité et pulsation (inverse de la période). Ce 
premier calcul concerne un circuit composé d'une résistance R et d'une bobine 
d'inductance L et soumis à un courant de pulsation w. Le suivant concerne un circuit 
dans lequel la bobine est remplacée par un condensateur de capacité C. 


Impédance d’un circuit condensateur-résistance 


l[ELECTRICITE,7,@R,@C,@w Z = V(R2 + 1/C°2xw°2) 
En entrée : R résistance. 

C capacité. 

w pulsation. 


En sortie : R impédance. 


Résistance équivalente de 2 résistances en parallèle 


l[ELECTRICITE,8,@ R1,@ R2 R = R1XR2/R1+R2 


En entrée : R1 première résistance. 
R2 deuxième résistance. 


En sortie : R1 résistance équivalente. 


La formule générale de calcul de la résistance équivalente de n résistances en 
parralèle est : 1/R = 1/R1 + 1/R2 +...+ 1/Rn. lci elle est ramenée à deux résistances. 
Pour des résistances montées en série, la résistance équivalente est tout simplement 
obtenue en additionnant toutes les résistances. 


Pour les condensateurs, les formules sont inversées. Si C est la capacité équivalente 
d'un réseau de condensateurs, on obtient pour un montage en série : 1/C = 1/C1 + 
1/C2 +...+ 1/Cn, et pour un montage en parallèle : C = C1 + C2 +..+ Cn. 


La routine ci-dessus permet alors le calcul de la capacité Equivalente de deux 
condensateurs en série, en remplaçant R1 et R2 par C1 et C2. 


MATHÉMATIQUES 


Hisoft GENA3.1 Assembler. 


Pass 1 errors: O0 


8000 
8000 


BCD1 
8000 
8003 
8006 
8009 
800A 


800C 
800D 
800F 
8011 
8014 
8017 
801A 
8010 
8020 
8022 
8024 


8025 
8027 
8029 
802C 
802F 
8032 
8035 
8038 
803A 
803C 


803D 
803F 
8041 
8044 
8047 
804A 
804D 
8050 


010A80 
216980 
COD1BC 
C9 
5D80 


F5 
FEO4 
2014 
DD6601 
DD6E00 
220E82 
111A82 
COF 781 
DD23 
DD23 
3D 


FEO3 
2014 
DD6601 
DD6E00 
220C82 
111582 
CDF781 
DD23 
DD23 
3D 


FEO2 

201A 

DD6601 
DD6E 00 
220A82 
111082 
COF 781 
DD6603 


10 ;=* ROUTINE ELECTRICITE CPC 6128 


20 ; 

30 ent  #8000 

40 org #8000 
50 

60 ;--* TRAITEMENT RSX *-- 
70 ; 

80 rsx: equ #bcdl 

90 ld bc,ext 
100 ld hl,space 
110 call rsx 
120 ret 


130 ext: defw nom 


*= 


140 ;--* RECUPERATION DES PARAMETRES *-- 


150 ;--* TEST SI 4 PARAMETRES *-- 


160 push af 

170 cp 4 

180 jr  nz,al 

190 ld h,(ix+l) 
200 1d 1,(ix+0) 
210 ld (sto3),hl 
220 ld de,calcz 
230 call stock 

240 inc ix 

250 inc ix 

260 dec a 

270 ;--* TEST SI 3 PARAMETRES *-- 
280 al: cp 3 

290 jr nz,a2 
300 ld h,(ix+1) 
310 ld 1,(ix+0) 
320 ld (sto2),hl 
330 ld de,calc2 
340 call stock 

350 inc ix 

360 inc ix 

370 dec a 

380 ;--* TEST SI 2 PARAMETRES *-- 
390 a2: Cp. 2 

400 jr  nz,a3 

410 ld h,(ix+1) 
420 id 1,(ix+0) 
430 ld (stol),hl 
440 ld de,calcl 
450 call stock 


460 ld h,(ix+3) 
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8053  DD6E02 470 1d 1,(ix+2) 
8056 222482 480 id (fonct),hl 
8059 1825 490 jr  rout 
805B F1 500 a3: pop af 
805C C9 510 ret 

520 ; 
805D 454C4543 530 nom: defm "ELECTRICIT" 
8067 C5 540 defb "E"+/80 
8068 00 550 defb O 
8069 560 space: defs 4 

570 ; 

580 ; 

590 ;--* TRAITEMENT CALL *-- 

600 ; 
8080 610 org #8080 

620 ; 
BD61 630 copie: equ #bdél 
BD64 640 entflo: equ #bd64 
BD79 650 puis10: equ #bd79 
BD7C 660 additi: equ #bd7c 
BD85 670 multip: equ #bd85 
BD88 680 divise: equ #bd88 
BD97 690 degres: equ #bd97 
BD9A 700 pi: equ #bd9a 
BD9D 710 racine: equ f{bd9d 
BDAF 720 cosin: equ #bdaf 

730 ; 

740 ;--* PUISSANCE *-- 
8080 3EO1 750 rout: Id a,l 
8082 212482 760 ld hl,fonct 
8085 BE 770 cp  (h1l) 
8086 2018 780 jr  nz,resist 
8088 F1 790 puiss: pop af 
8089 FEO3 800 cp 3 
808B CO 810 ret nz 
808C 211582 820 ld hl,calc2 
808F 111582 830 ld de,calc2 
8092 CD85BD 840 call multip 
8095 111082 850 ld de,calcl 
8098 EB 860 ex  de,hl 
8099  CD85BD 870 call multip 
809C CDFD81 880 call fin 
809F C9 890 ret 

900 ;--* RESISTANCE *-- 
80A0 3E02 910 resist: 1ld a,2 
80A2 212482 920 id hl,fonct 
80A5 BE 930 cp (h1l) 
80A6 2017 940 jr nz,ohm 


80A8 F1 950 pop af 


MATHÉMATIQUES 


80A9 FEO4 960 cp 4 
80AB CO 970 ret nz 
80AC 211082 980 id hl,calcl 
80AF 111582 990 1d de,calc2 
80B2 CDB85BD 1000 call multip 
80B5 111A82 1010 ld de,calc3 
80B8 CD88BD 1020 call divise 
80BB CDFD81 1030 call fin 
80BE C9 1040 ret 

1050 ;--* LOI D'OHM - GENERATEUR *-- 
80BF  3E03 1060 ohm: ld a,3 
80C1 212482 1070 ld hl,fonct 
80C4 BE 1080 cp (h1) 
80C5 2017 1090 jr nz,induct 
80C7 F1 1100 pop af 
80C8 FEO4 1110 cp 4 
80CA CO 1120 ret nz 
80CB 211082 1130 : ld hl,calcl 
80CE 111582 1140 ld de,calc2 
8001 CD7CBD 1150 call additi 
80D4 111A82 1160 id de,calcz3 
8007 CD85BD 1170 call multip 
80DA CDFD81 1180 call fin 
80DD C9 1190 ret 

1200 ;--* INDUCTION MAGNETIQUE *-- 
80DE 3E04 1210 induct: ld  a,4 
80E0 212482 1220 ld hl,fonct 
80E3 BE 1230 Cp (h1) 
80E4 2031 1240 jr nz,flux 
80E6 F1 1250 pop af 
80E7 FEO4 1260 cp 4 
80E9 CO 1270 ret nz 
80EA 211F82 1280 ld hl,calc4 
80ED CD9ABD 1290 call pi 
80FO0 211082 1300 ld hl,calcl 
80F3 111582 1310 ld de,calc2 
80F6 CD88BD 1320 call divise 
80F9 111A82 1330 ld de,calcz 
80FC CD85BD 1340 call multip 
80FF 111F82 1350 ld de,calc4 
8102 CD85BD 1360 call multip 
8105 3EF9 1370 ld a, #F9 
8107 CD79BD 1380 call puis10 
810A 211082 1390 ld hl,calcl 
810D 111082 1400 id de,calcl 
8110 CD7CBD 1410 call additi 
8113 CDFD81 1420 call fin 
8116 C9 1430 ret 


1440 ;--* FLUX D'INDUCTION *-- 
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8117 3E05 1450 flux: Id a,5 
8119 212482 1460 ld hl,fonct 
811C BE 1470 cp (h1) 
811D 201F 1480 jr nz,impedl 
811F F1 1490 pop af 
8120 FEO4 1500 cp à 
8122 CO 1510 ret nz 
8123 3E0OIl 1520 ld a,1l 
8125 CD97BD 1530 call degres 
8128 211082 1540 ld hl,calcl 
812B CDAFBD 1550 call cosin 
812E 111582 1560 1d de,calc2 
8131 CD85BD 1570 call multip 
8134 111A82 1580 ld de,calcz 
8137 CD85BD 1590 call multip 
813A COFD81 1600 call fin 
8130 C9 1610 ret 

1620 ;--* IMPEDANCE CIRCUIT L/R *-- 
813E 3E06 1630 impedl: 1d  a,6 
8140 212482 1640 id hl,fonct 
8143 BE 1650 cp (hl) 
8144 2036 1660 jr nz,imped2 
8146 F1 1670 pop af 
8147 FEO4 1680 cp 4 
8149 CO 1690 ret nz 
814A 211082 1700 ld hl,calcl 
814D 111082 1710 ld de,calcl 
8150 CD85BD 1720 call multip 
8153 211582 1730 ld hl,calc2 
8156 111582 1740 ld de,calc2 
8159 CD85BD 1750 call multip 
815C 211A82 1760 ld hl,calcz 
815F 111A82 1770 ld de,calc3 
8162 CD85BD 1780 call multip 
8165 211582 1790 ld hl,calc2 
8168 111A82 1800 ld de,calcz 
816B CD85BD 1810 call multip 
816E 111082 1820 id de,calcl 
8171 EB 1830 ex  de,hl 
8172 CD7CBD 1840 call additi 
8175 CD9DBD 1850 call racine 
8178 CDFD81 1860 call fin 
817B C9 1870 ret 

1880 ;--* IMPEDANCE CIRCUIT C/R *-- 
817C 3E07 1890 imped2: 1d a,7 
817E 212482 1900 id hl,fonct 
8181 BE 1910 cp  (hl) 
8182 2043 1920 jr  nz,resieq 


8184 F1 1930 pop af 
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8185 FEO4 1940 cp 4 
8187 CO 1950 ret nz 
8188 AF 1960 xor a 
8189 210100 1970 ld h1,1 
818C 111F82 1980 ld de,calc4 
818F CD64BD 1990 call entflo 
8192 211582 2000 ld hl,calc2 
8195 111582 2010 ld de,calc2 
8198 CD85BD 2020 call multip 
819B 211A82 2030 ld hl,calcz 
819E 111A82 2040 ld de,calc3 
81A1 CD85BD 2050 call multip 
81A4 111582 2060 ld de,calc2 
81A7 CD85BD 2070 call multip 
81AA 111F82 2080 ld de,calc4 
81AD EB 2090 : ex  de,hl 
81AE  CD88BD 2100 call divise 
81B1 211082 2110 ld hl,calcl 
81B4 111082 2120 ld de,calcl 
81B7 CD85BD 2130 call multip 
81BA 111F82 2140 ld de,calc4 
81BD CD7CBD 2150 call additi 
81C0 CD9DBD 2160 call racine 
81C3 CDFD81 2170 call fin 
81C6 C9 2180 ret 

2190 ;--* RESISTANCE EQUIVALENTE *-- 
81C7 3E08 2200 resieq: ld  a,8 
81C9 212482 2210 id hl,fonct 
81CC BE 2220 cp (h1l) 
81CD CO 2230 ret nz 
81CE F1 2240 pop af 
81CF FEO3 2250 cp 3 
81D1 CO 2260 ret nz 
81D2 111082 2270 ld de,calcl 
81D5 211A82 2280 ld hl,calcz 
81D8 CD61BD 2290 call copie 
81DB 211A82 2300 ld hl,calcz 
81DE 111582 2310 ld de,calc2 
81E1 CD7CBD 2320 call additi 
81E4 211082 2330 ld hl,calcl 
81E7 111582 2340 ld de,calc2 
81EA CD85BD 2350 call multip 
81ED 111A82 2360 ld de,calc3 
81F0 CD88BD 2370 call divise 
81F3 CDFD8l 2380 call fin 
81F6 C9 2390 ret 

2400 ; 


81F7 010500 2410 stock: Ild bc,5 
81FA EDBO 2420 ldir 
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81FC 
81FD 
8200 
8204 
8207 
8209 


820A 
820C 
820€ 
8210 
8215 
821A 
821F 
8224 


Pass 2 


al 
additi 
calc3 
cosin 
entflo 
flux 
imped2 
nom 
puis10 
resieq 
ISX 
sto2 


Table 
Execut 


C9 
211082 


2430 
2440 


ED5B0A82 2450 


010500 
EDBO 
C9 


2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 


errors: 00 


8025 
BD7C 
821A 
BDAF 
BD64 
8117 
817C 
8050 
BD79 
81C7 
BCDI 
820C 


used: 


a2 
calcl 
calc4 
degres 
ext 
fonct 
induct 
ohm 
puiss 
resist 
space 
stoz 


430 f 


es: 32768 


fin: 


; 

stol: 
sto2: 
sto3: 


calcl: 
calc2: 
calc3: 
calc4: 
fonct : 


8030 
8210 
821F 
BD97 
800A 
8224 
80ODE 
80BF 
8088 
80A0 
8069 
820E 


rom 


RSX ET ROUTINES ASSEMBLEUR SUR AMSTRAD CPC 


ret 

ld hl,calel 
ld de,(stol) 
ld bc,5 

idir 

ret 


defs 
defs 
defs 
defs 
defs 
defs 
defs 
defs 


ND Ur Uri Ui 1 NO NO N 


a3 805B 
calc2 8215 
copie BD61 
divise BD88 
fin 81FD 
impedl 813E 
multip BD85 


pi BD9A 
racine BD9D 
rout 8080 
stol 820A 
stock 81F7 
900 


MATHÉMATIQUES 


PHYSIQUE 


NUMERO 
FONCTION 


FIGURE 


MOUVEMENT 
RECTILIGNE 
UNIFORME 


MOUVEMENT 
RECTILIGNE 
SINUSOIDAL 


ENERGIE 
CINETIQUE 


NOMBRE 
PARAM 


PARAMETRES 


a accélér. 
t temps 
Vo vit init 
Xo abs init 


a élong max 
w pulsation 
t temps 


M masse 
V vitesse 
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FORMULES 


= a sin (wt) 


PERIODE 
D'OSCILLATION 


| longueur 


2 
T = 2pixV (1/9) 


L = Lo (1+kxt) 


PLAN INCLINE 


P poids 
a angl incl 


DILATATION 
LINEAIRE 


Lo long à 0 
k coef dil. 
t températ. 


TRAVAIL 
D'UNE FORCE 


F intensité 
| longueur 
a angle 


FORCE DE 
GRAVITATION 


e=667x10°"—-13 
Mi masse 1 
M2 masse 2 
d distance 





Equation d’un mouvement rectiligne uniforme 


IPHYSIQUE,1,@t,@a,@Vo,@Xo 


En entrée : t temps. 
a accélération. 
Vo vitesse initiale. 
Xo abscisse à l'origine des temps. 


X = axt2/2 + Voxt + Xo 


En sortie : t abscisse au temps t. 
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Cette formule permet de trouver l'abscisse à un temps t d’un corps subissant une 
accélération constante a ayant à l'origine des temps une vitesse initiale Vo et une 
abscisse initiale Xo. 


Une application simple de cette formule serait par exemple de calculer la profondeur 
d'un puits dans lequel on laisse tomber, sans vitesse initiale, une pierre qui met 2,5 
secondes pour en atteindre le fond. 


Il faut alors initialiser les variables comme suit : 


t= 2.5; a = 9.81 (accélération de la pesanteur); Vo = 0 et Xo = 0. L'appel de la 
routine permettrait d'obtenir dans t la réponse demandée, à savoir 30,65 m. 


Equation d’un mouvement rectiligne sinusoïdal 
|PHYSIQUE,2,@a,@w,@t X = axsin(wxt) 


En entrée : a élongation maximum. 
w pulsation. 
t temps. 


En sortie : a abscisse au temps t. 


Cette formule s'applique par exemple à un pendule ou à un objet lié à un ressort. 


Energie cinétique 
|PHYSIQUE, 3,@ V,@M E = MxV’2/2 


En entrée : V vitesse. 
M masse. 


En sortie : V énergie cinétique. 


L'énergie cinétique représente l'énergie stockée par un corps mobile à une vitesse V. 
C'est aussi l'énergie qu'il faut fournir pour stopper le mouvement de ce corps. Elle est 
liée à la masse de celui-ci. Cela signifie qu'à vitesse égale, un corps plus lourd 
possédera une énergie supérieure à celle d'un corps plus léger. 


Période d’un oscillateur 

IPHYSIQUE,4,@ a T = 2xpix V{1/g) 
En entrée : | longueur. 

En sortie : | période de l'oscillation. 

g a pour valeur 10 m/s/s. 


Cette formule permet de calculer la durée, séparant deux positions identiques, pour un 
pendule soumis à de faibles oscillations. 


MATHÉMATIQUES 285 


Plan incliné 


|PHYSIQUE,5,@a,@P F = Pxsin a 


En entrée : a angle d'inclinaison de plan. 
P poids du corps. 


En sortie : a force parallèle au plan. 


Très utilisée en statique, cette formule permet de déterminer l'intensité de la force à 
appliquer parallèlement au plan incliné, pour maintenir en équilibre un corps de poids 
P. 


Par exemple, pour sortir une voiture d'une tonne (1000 kg donc à peu près 10000 N) 
tombée dans un fossé de pente 30 degrés, il faut exercer sur elle une force de traction, 
parallèle au plan incliné, d'intensité 5000 N (la moitié du poids de la voiture). Ce 
résultat est obtenu après utilisation de la routine dont les variables déclarées sont : 
a = 30 et P = 10000. 


Bien entendu, nous n'avons pas tenu compte des frottements qui, dans un cas 
concret, ne manqueraient pas d'intervenir. 


Dilatation linéaire 
|PHYSIQUE,6,@Lo,@k,@t L = Lo(i+kxt) 


En entrée : Lo longueur à O degré. 
K coefficient de dilatation linéaire. 
t température. 


En sortie : Lo longueur à c degrés. 


Tout corps subit une dilatation lors d'une augmentation de température. Cette 
dilatation dépend d'un coefficient propre au matériau, de la longueur à 0 degré de ce 
corps et de l'augmentation de la température. 


De même, nous pourrions calculer les dilatations volumiques d'un corps. 


Travail d’une force 
IPHYSIQUE,,7,@F,@I,@a W=FxIxcos a 


En entrée : F intensité de la force. 
| longueur de déplacement du point d'application. 
a angle force/déplacement. 


En sortie : F travail de la force. 


Force de gravitation 


|PHYSIQUE,8,@M1,@M2,@d F = 6.67x10"(—-11)xM,xM,/d°2 


En entrée : M1 masse du corps 1. 
M2 masse du corps 2. 
d distance entre les 2 corps. 


En sortie : d intensité de la force de la gravitation. 
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C'est une pomme dit-on qui inspira à NEWTON, lors d'une sieste, la formulation de la 
loi de l'attraction universelle représentée par cette égalité. Elle lui permit également de 
retrouver les lois de Kepler relatives au système planétaire. Ces lois précisent que les 
planètes s'attirent entre elles avec une force proportionnelle à leurs masses et 
inversement proportionnelle au carré de leur distance. 


Noter que dans la routine le coefficient devient 667 x 10 puissance —13. 


Hisoft GENA3.1 Assembler. 


Pass 1 errors: O0 


10 ;=* ROUTINE PHYSIQUE CPC 464 *= 


20 ; 
8000 30 ent {8000 
8000 40 org #8000 
50 ; 
60 ;--* TRAITEMENT RSX *-- 
70 ; 
BCD1 80 rsx: equ #bcdl 
8000 010A80 90 ld bc,ext 
8003 217E80 100 ld hl,space 
8006 CDDIBC 110 call rsx 
8009 C9 120 ret 
800A 7580 130 ext: defw nom 


140 ;--* RECUPERATION DES PARAMETRES *-- 
150 ;--* TEST SI 5 PARAMETRES *-- 


800€ F5 160 push af 
8000 FEO5 170 cp 5 
800F 2014 180 jr nz,a0 
8011 DD6601 190 ld h,(ix+1) 
8014 DD6E00 200 1d 1,(ix+0) 
8017 221E82 210 ld (sto4),hl 
801A 112F82 220 ld de,calc4 
801D CD0582 230 call stock 
8020 DD23 240 inc ix 
8022 DD23 250 inc ix 
8024 3D 260 dec a 

270 ;--* TEST SI 4 PARAMTRES *-- 
8025 FEO4 280 a0: cp 4 
8027 2014 290 jr nz,al 
8029 DD6601 300 ld h,(ix+1) 
802C  DD6E00 310 ld 1,(ix+0) 
802F 221C82 320 ld  (sto3),hl 
8032 112A82 330 ld de,calcz 
8035 CDO582 340 call stock 
8038 DD23 350 inc ix 


803A DD23 360 inc ix 
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803C 3D 370 dec a 

380 ;--* TEST SI 3 PARAMETRES *-- 
8030 FEO3 390 al: cp 3 
803F 2014 400 jr nz,a2 
8041 DD6601 410 ld h,(ix+1) 
8044  DD6E00 420 ld 1,(ix+0) 
8047 221A82 430 1d (sto2),hl 
804A 112582 440 ld de,calc2 
804D CDO582 450 call stock 
8050 DD23 460 inc ix 
8052 DD23 470 inc ix 
8054 3D 480 dec a 

490 ;--* TEST SI 2 PARAMETRES *-- 
8055 FEO2 500 a2: cp 2 
8057 201A 510 jr nz,a3 
8059 DD6601 520 ld h,(ix+1) 
805C DD6E00 530 ld 1,(ix+0) 
805F 221882 540 ld  (stol),hl 
8062 112082 550 ld de,calcl 
8065 CDO582 560 call stock 
8068 DD6603 570 ld h,(ix+3) 
806B DD6E02 580 ld 1,(ix+2) 
806E 22398? 590 ld  (fonct),hl 
8071 181D 600 jr  rout 
8073 F1 610 a3: pop af 
8074 C9 620 ret 

630 ; 
8075 50485953 640 nom: defm ‘"’PHYSIQU" 
807C C5 650 defb "E'"+180 
807D O0 660 defb 0 
807E 670 space: defs 4 

680 ; 

690 ; 

700 ;--* TRAITEMENT CALL *-- 

710 ; 
8090 720 org #8090 

730 ; 
BD64 740 entflo: equ #bd64 
BD79 750 puis10: equ #bd79 
BD7C 760 additi: equ #bd7c 
BD85 770 multip: equ #bd85 
BD88 780 divise: equ #bd88 
BD97 790 degres: equ #bd97 
BD9A 800 pi: equ #bd9a 
BD9D 810 racine: equ #bd9d 
BDAC 820 sinus: equ #bdac 
BDAF 830 cosin: equ f#bdaf 

840 ; 


8090 AF 850 rout: xOT a 
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8091 210200 860 id h1,2 
8094 113482 870 ld de,deux 
8097 CD64BD 880 call entflo 

890 ; 

900 ;--* MOUVEMENT RECTILIGNE *-- 
809A 3EOI 910 mvtrec: 1d a,1l 
809C 213982 920 id hl,fonct 
809F BE 930 cp (hl) 
80A0 2032 940 jr  nz,mvtsin 
80A2 F1 950 pop af 
80A3 FEOS 960 Cp 
80A5 CO 970 ret nz 
806 212A82 980 ld hl,calc3 
80A9 112082 990 ld de,calcl 
80AC CD85BD 1000 call multip 
80AF 212082 1010 ld hl,calcl 
80B2 112082 1020 ld de,calcl 
80B5 CD85BD 1030 call multip 
80B8 112582 1040 ld de,calc2 
80BB CD85BD 1050 call multip 
80BE 113482 1060 ld de,deux 
80C1 CD88BD 1070 call divise 
80C4 112A82 1080 ld de,calcz 
80C7 CD7CBD 1090 call additi 
80CA 112F82 1100 ld de,calc4 
80CD CD7CBD 1110 call additi 
80D0  CDOB82 1120 call fin 
80D3 C9 1130 ret 

1140 ;--* MOUVEMENT RECTILIGNE SINUSOIDAL *-- 
80D4  3E02 1150 mvtsin: ld  a,2 
80D6 213982 1160 id h1l,fonct 
80D9 BE 1170 cp (hl) 
80DA 2020 1180 jr nz,enerci 
80DC F1 1190 pop af 
80DD FEO4 1200 cp 4 
80DF CO 1210 ret nz 
80E0 3EOIl 1220 ld a,1 
80E2 CD97BD 1230 call degres 
80E5 212582 1240 ld hl,calc2 
80E8 112A82 1250 ld de,calcz3 
80EB CD85BD 1260 call multip 
80EE  CDACBD 1270 call sinus 
80F1 112082 1280 ld de,calcl 
80F4 EB 1290 ex  de,hl 
80F5 CD85BD 1300 call multip 
80F8 CDOB82 1310 call fin 
80FB C9 1320 ret 


1330 ;--* ENERGIE CINETIQUE *-- 
80FC 3E03 1340 enerci: 1d a,3 


MATHÉMATIQUES 


80FE 
8101 
8102 
8104 
8105 
8107 
8108 
810B 
810€ 
8111 
8114 
8115 
8118 
811B 
811E 
8121 


8122 
8124 
8127 
8128 
812A 
812B 
812D 
812E 
8131 
8134 
8135 
8138 
815B 
813E 
8141 
8144 
8147 
814A 
814D 
8150 
8153 
8156 
8159 


815A 
815C 
815F 
8160 
8162 
8163 
8165 
8166 


213982 
BE 
201E 
F1 
FEO3 
CO 
212582 
112582 
CD85BD 
112082 
EB 
CD85BD 
113482 
CD88BD 
CD0B82 
C9 


3E04 
213982 
BE 
2030 
F1 
FEO2 
CO 
212582 
CDSABD 
AF 
210A00 
112A82 
CD64BD 
212082 
112A82 
CD88BD 
CD9DBD 
112582 
CD85BD 
113482 
CD85BD 
CDOB82 
C9 


3E05 
213982 
BE 
2019 
F1 
FEO3 
CO 
3EO01 


1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 


1620 


1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 


1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 


ld 
CP 
jr 
POP 
CP 
ret 
1d 
1d 
call 
1d 
ex 
call 
ld 
call 
call 
ret 
5--* PERIODE 
perosc: ld 
ld 
CP 
jr 
POP 
CP 
ret 
ld 
call 
xXOT 
ld 
ld 
call 
ld 
ld 
call 
call 
ld 
call 
ld 
call 


call 
ret 


h1, fonct 
(h1) 
nz,perosc 
af 

3 

nz 
hl,calc2 
de,calc2 
multip 
de,calcl 
de,hl 
multip 
de, deux 
divise 
fin 


D'OSCILLATEUR *-- 
a,4 

h1, fonct 
(h1) 
nz,plainc 
af 

2 

nz 
hl,calc2 
pi 

a 

h1,10 
de,calc3 
entflo 
hl,calcl 
de,calc3 
divise 
racine 
de,calc2 
multip 
de, deux 
multip 


fin 


;--* PLAN INCLINE *-- 


plainc: ld 
1d 
CP 
jr 
pop 
CP 
ret 
ld 


a,5 
hl,fonct 
(h1l) 
nz,dilat 
af 

3 

nz 

a, 1 
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8168 CD97BD 1840 call degres 
816B 212082 1850 ld hl,calcl 
816E CDACBD 1860 call sinus 
8171 112582 1870 ld de,calc2 
8174 CD85BD 1880 call multip 
8177 CD0B82 1890 call fin 
817A C9 1900 ret 

1910 ;--* DILATION LINEAIRE *-- 
817B 3E06 1920 dilat: Id a,6 
817D 213982 1930 id hl,fonct 
8180 BE 1940 cp (hl) 
8181 Z2OIE 1950 jr nz,travai 
8183 F1 1960 pop af 
8184 FEO4 1970 cp 4 
8186 CO 1980 ret nz 
8187 212582 1990 ld hl,calc2 
818A 112082 2000 ld de,calcl 
818D CD85BD 2010 call multip 
8190 112A82 2020 ld de,calcz 
8193 CD85BD 2030 call multip 
8196 112082 2040 ld de,calcl 
8199 EB 2050 ex  de,hl 
819A CD7CBD 2060 call additi 
8190 CD0B82 2070 call fin 
81A0 C9 2080 ret 

2090 ;--* TRAVAIL D'UNE FORCE *-- 
81A1 3E07 2100 travai: 1d a,7 
81A3 213982 2110 id h1l,fonct 
81A6 BE 2120 cp (hl) 
81A7 2020 2130 jr nz,gravit 
81A9 F1] 2140 pop af 
81AA FEO4 2150 cp à 
81AC 3EOIl 2160 ld a,1l 
81AE CD97BD 2170 call degres 
81B1 CO 2180 ret nz 
81B2 212A82 2190 ld hl,calcz 
81B5 CDAFBD 2200 call cosin 
81B8 112582 2210 ld de,calc2 
81BB CD85BD 2220 call multip 
81BE 112082 2230 ld de,calcl 
81C1 EB 2240 ex de,hl 
81C2 CD85BD 2250 call multip 
81C5 CDOB82 2260 call fin 
81C8 C9 2270 ret 

2280 ;--* FORCE DE GRAVITATION *-- 
81C9 3E08 2290 gravit: ld a,8 
81CB 213982 2300 id hl,fonct 
81CE BE 2310 cp (hl) 


81CF CO 2320 ret nz 


MATHÉMATIQUES 


81D0 
81D1 
8103 
81D4 
81D5 
81D8 
81DB 
81DE 
81E1 
81E4 
81E7 
81EA 
81ED 
81F0 
81F3 
81F6 
81F9 
81FB 
81FE 
8201 
8204 


8205 
8208 
820A 
820B 
820E 
8212 
8215 
8217 


8218 
821A 
821C 
821E 
8220 
8225 
822A 
822F 
8234 
8239 


F1 
FEO4 
CO 

AF 
219B02 
112F82 
CD64BD 
212082 
112582 
CD85BD 
112A82 
CD88BD 
112A82 
CD88BD 
112F82 
CD85BD 
3EF3 
212082 
CD79BD 
CD0B82 
C9 


010500 
EDBO 

C9 
212082 
ED5B1882 
010500 
EDBO 

C9 


2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 


2650 ; 


2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 


stock: 


fin: 


stol: 
sto2: 
sto3: 
sto4: 
calcl: 
calc2: 
calc3: 
calc4: 
deux : 
fonct: 


POP 
CP 
ret 
xXOr 
1d 
ld 
call 
ld 
ld 
call 
ld 
call 
ld 
call 
id 
call 
1d 
ld 
call 
call 
ret 


ld 
ldir 
ret 
ld 
ld 
ld 
ldir 
ret 


defs 
defs 
defs 
defs 
defs 
defs 
defs 
defs 
defs 
defs 


af 
4. 
rmiz 


h1,667 
de,calc4 
entflo 
hl,calcl 
de,calc2 
multip 
de,calcz3 
divise 
de,calcz 
divise 
de,calc4 
multip 
a,#f3 
hl,calcl 
puis10 
fin 


bc,5 


hl,calcl 
de,(stol) 
bc,5 


ND 1 Uri Uri Ui Un NO ON NO N 
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Pass 2 errors: O0 


a0 8025 al 803D a2 8055 
a3 8073 additi BD7C calcl 8220 
calc2 8225 calc3 822A calc4 822F 
cosin BDAF degres BD97 deux 8234 
dilat 817B divise BD88 enerci 80FC 
entflo BD64 ext 8004 fin 8208 
fonct 8239 gravit 81C9 multip BD85 
mvtrec 809A mvtsin 80D4 nom 8975 
perosc 8122 pi BDSA plainc 815A 
puis10 BD79 racine BD9D rout 8090 
TSX BCD1 sinus BDAC space 807E 


stol 8218 sto2 821A sto3  821C 
sto4 821E stock 8205 travai 81Al 


Table used: 466 from 900 
Executes: 32768 


MATHÉMATIQUES 


MATHEMATIQUES 
NUMERO 
FONCTION 


EQUATION 
DU 
SECOND DEGRE 


FACTORIEL 





SOMME 
SUITE 
ARITHMETIQUE 


SOMME 
SUITE 
GEOMETRIQUE 





NOMBRE 
PARAM 





PARAMETRES 


a coef x'2 
b coef x'1 
c coef x°0 


a nbre ent 


n nbr terme 
U1 1° term 
Un der term 


n nbr terme 
r raison 
ali 1° term 
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FORMULES 


d = V(b’2-4ac) 
xi=(—b-d/2a) 
x2=(—-b+d/2a) 


f=axa-1x...x1 


S=n(U1+Un)/2 





Résolution d'équations du second degré 


IMATH,1,@a,@b,@c x1 = —-b-V{(d)/2Xa avec d=b'2-4ac 


x2 = —-b+V(d)/2xa 


En entrée : a coefficient de x”2. 
b coefficient de x°1. 
c coefficient de x°0. 


En sortie : a valeur de d si celui-ci est négatif. 
b première solution. 
c deuxième solution. 


Une équation du second degré se présente sous la forme : 
axx 2 + bxx +c=0 


Pour obtenir les solutions de l'équation, il faut calculer le disciminant 
d = b°2 - 4xaxc. Pour d supérieur à O, il existe deux solutions réelles x1 et x2 dont 
les valeurs sont données par les formules ci-dessus. Pour d = 0, x1 = x2 = —-b/2xa 
et pour d plus petit que 0, il n'existe pas de solutions réelles. 


La routine débute par le transfert des 3 coefficients dans CALC4, CALCS et CALC6 car 
ils seront appelés à servir plusieurs fois. Le premier calcul consiste à chercher le 
discriminant. Il faut ensuite tester son signe. S'il est négatif, la routine place sa valeur 
dans a et s'arrête là. S'il est positif, les deux solutions sont calculées et placées dans b 
et c. 
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Factoriel 


IMATH,2,@a f=axa-1xa-2 x a-3 x..x 1 
En entrée : a nombre dont on cherche le factoriel. 
En sortie : a factoriel du nombre. 


Les factoriels sont des fonctions utilisées notamment dans les calculs statistiques, par 
exemple dans le cas des combinaisons et des arrangements. Ce sont ces calculs qui 
permettent de trouver le nombre de combinaisons qu'il faudrait jouer au tiercé pour 
être sûr de gagner. 


Somme des éléments d'une suite arithmétique 
IMATH,8,@U1,@Un,@n S = n x (U1+Un)2 


En entrée : a premier terme de la suite. 
b dernier terme de la suite. 
c nombre de termes de la suite. 


En sortie : a somme des termes. 


Une suite arithmétique est formée de nombres caractérisés de la manière suivante : 
U(i) = U(i-1) + r où r s'appelle la raison. La somme de ces nombres s'obtient par la 
formule ci-dessus. 


La connaissance de cette formule permet d'effectuer des calculs rapides. Par 
exemple, la somme des nombres de 1 à 1000 se trouve très vite : S = 1000 x 
(1000+1)/2 = 500500 


Somme des éléments d’une suite géométrique 
IMATH,4,@U1,@r,@n S = U1 x (1-rn)/(1-r) 


En entrée : U1 premier terme de la suite. 
r raison de la suite. 
n nombre de termes de la suite. 


En sortie : a somme des termes. 


La caractéristique d'un terme d'une suite géométrique est d'être calculée par 
multiplication du terme précédent par un nombre appelé raison de la suite : U(i) = 
U(i—1) x r. La somme d'une suite de ce type comprenant n nombres est obtenue par 
la formule décrite plus haut. 


MATHÉMATIQUES 


Hisoft GENA3.1 Assembler. 


Pass 1 errors: 00 


10 ;=* ROUTINE MATH CPC 6128 *- 


20 ; 
8000 30 ent  #8000 
8000 40 org #8000 
50 ; 
60 ;--* TRAITEMENT RSX #-- 
70 ; 
BCDI 80 rsx: equ #bcdl 
8000 010A80 90 ld bc,ext 
8003 216280 100 ld hl,space 
8006 CDDIBC 110 call rsx 
8009 C9 120 ret 
800A  5D80 130 ext: defw nom 


140 ;--* RECUPERATION DES PARAMETRES *-- 
150 ;--* TEST SI 4 PARAMETRES *-- 


800C F5 160 push af 
800D FEO4 170 cp 4 
800F 2014 180 jr nz,al 
8011 DD6601 190 ld h,(ix+l) 
8014 DD6E00 200 ld 1,(ix+0) 
8017 221082 210 ld (sto3),hl 
801A 111C82 220 ld de,calc3 
801D CDF981 230 call stock 
8020 DD23 240 inc ix 
8022 DD23 250 inc ix 
8024 3D 260 dec a 

270 ;--* TEST SI 3 PARAMETRES *-- 
8025 FEO3 280 al: cp 3 
8027 2014 290 jr nz,a2 
8029 DD6601 300 id h,(ix+1) 
802C DD6E00 310 ld 1,(ix+0) 
802F 220E82 320 ld  (sto2),hl 
8032 111782 330 ld de,calc2 
8035 CDF981 340 call stock 
8038 DD23 350 inc ix 
803A DD23 360 inc ix 
803C 3D 370 dec a 

380 ;--* TEST SI 2 PARAMETRES *-- 
8030 FEO2 390 a2: cp 2 
803F 201A 400 jr  nz,ai 
8041 DD6601 410 ld h,(ix+1) 
8044  DD6E00 420 ld 1,(ix+0) 
8047 220C82 430 ld  (stol),hl 
804A 111282 440 ld de,calcl 


8040 CDF981 450 call stock 
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8050 DD6603 460 ld h,(ix+3) 
8053 DD6E02 470 ld 1,(ix+2) 
8056 223582 480 ld  (fonct),hl 
8059 1825 490 jr rout 
805B FI 500 a3: pop af 
805C C9 510 ret 
520 ; 
805D 4D4154 530 nom: defm "MAT" 
8060 C8 540 defb "H'+180 
8061 00 550 defb O 
8062 560 space: defs 4 
570 ; 
580 ; 
590 ;--* TRAITEMENT CALL *x-- 
600 ; 
8080 610 org #8080 
620 ; 
BD61 630 copie: equ #bdél 
BD64 640 entflo: equ #bdé64 
BD7C 650 additi: equ #bd7c 
BD82 660 soustr: equ fbd82 
BD85 670 multip: equ #bd85 
BD88 680 divise: equ #bd88 
BD8E 690 compar: equ #bd8e 
BD91 700 invsig: equ #bd91 
BD94 710 testsi: equ #bd94 
BD90 720 racine: equ #bd9d 
BDAO 730 puiss: equ #bda0 
740 ; 


750 ;--* EQUATION DU SECOND DEGRE *-- 
760 ;--* CALCUL DU DISCRIMINANT *-- 


8080 3EO1 770 rout: Id a,1 

8082 213582 789 ld hl,fonct 
8085 BE 790 cp (hl) 
8086 205F 800 jt nz, facto 
8088 F1 810 pop af 

8089 FEO4 820 cp à 

808B CO 830 ret nz 

808C AF 840 xoTr a 

808D 210400 850 id h],4 
8090 113082 860 ld de,calc7 
8093 CD64BD 870 call entflo 
8096 111282 880 ld de,calcl 
8099 212182 890 ld hl,calc4 
809C CD61BD 900 call copie 
809F 111782 910 ld de,calc2 
80A2 212682 920 ld hl,calcs 
80GA5 CD61BD 930 call copie 


80A8 111C82 940 ld de,calc3 


MATHÉMATIQUES 


&0AB 
80AE 
80B1 
80B4 
80B7 
80BA 
80BD 
80C0 
80C3 
80C6 
80C7 
80CA 
80CD 
80D0 


80D3 
80D6 
80D8 
80DA 
80DD 
80F0 
80E3 
80E6 


80E7 
80E9 
80EC 
80EF 
80F2 
80F5 
80F 8 
80FB 
80FE 


8101 
8104 
8107 
810A 
810D 
8110 
8113 
8116 
811A 
811D 
811F 
8122 


8125 
8128 


212B82 
CD61BD 
212682 
111782 
CD85BD 
212182 
112B82 
CD85BD 
113082 
EB 

CD85BD 
CD91BD 
112682 
CD7CBD 


CD94BD 
FEFF 
200F 
113082 
211282 
CD61BD 
CDFF81 
C9 


1852 

213082 
CD9DBD 
111782 
212682 
CD61BD 
211282 
111282 
CD7CBD 


211782 
113082 
CD7CBD 
111282 
CD88BD 
CD91BD 
211782 
ED5BOE82 
010500 
EDBO 
212682 
CD91BD 


113082 
CD7CBD 


950 
960 
970 
980 
990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 


ld 
call 
ld 
ld 
call 
ld 
ld 
call 
ld 
ex 
call 
call 
ld 
call 
5--* TEST DU 
call 
CP 
ir 
ld 
ld 
call 
call 
ret 


hl,calcé 
copie 
hl,calcs5 
de,calc?2 
multip 
hl,calc4 
de,calcé 
multip 
de,calc7 
de,h1l 
multip 
invsig 
de,calcs5 
additi 
SIGNE DU 
testsi 
FF 
nz,a4 
de,calc7 
hl,calcl 
copie 
fin 


DISCRIMINANT #-- 


;--*. CALCUL DES SOLUTIONS *-- 


facto: jr 

a4: ld 
call 
ld 
ld 
call 
ld 
ld 
call 


factor 
hl,calc7 
racine 
de,calc2 
hl,calcs 
copie 
hl,calcl 
de,calcl 
additi 


;--* CALCUL SOLUTION 1 *-- 


ld 
ld 
call 
ld 
call 
call 
ld 
ld 
ld 
ldir 
ld 
call 


h1,calc2 
de,calc7 
additi 
de,calcl 
divise 
invsig 
hl,calc2 
de,(sto2) 
bc,5 


h1l,calcs 
invsig 


;5--* CALCUL SOLUTION 2 *-- 


ld 
call 


de,calc7 
additi 
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812B 111282 1440 ld de,calcl 
812E CD88BD 1450 call divise 
8131 ED5B1082 1460 ld de,(sto3) 
8135 010500 1470 id bc,5 
8138 EDBO 1480 ldir 
813A C9 1490 ret 

1500 ;--* FACTORIEL *-- 
813B 3E02 1510 factor: 1ld a,2 
813D 213582 1520 id hl,fonct 
8140 BE 1530 cp (hl) 
8141 203E 1540 jr nz,suitel 
8143 F1 1550 pop af 
8144 FEO2 1560 cp 2 
8146 CO 1570 ret nz 
8147 AF 1580 xXOT a 
8148 210100 1590 id hl,1 
814B 113782 1600 ld de,un 
814E CD64BD 1610 call entflo 
8151 111282 1620 ld de,calcl 
8154 211782 1630 ld hl,calc2 
8157 CD61BD 1640 call copie 
815A 211782 1650 a5: ld hl,calc2 
8150 113782 1660 ld de,un 
8160 CD82BD 1670 call soustr 
8163 DD211782 1680 ld ix,calc2 
8167 DDCBO3BE 1690 res 7,(ix+3) 
816B DD7E04 1700 ld a,(ix+4) 
816E FE8l 1710 cp #81 
8170 280B 1720 ir z,aëé 
8172 211282 1730 ld hl,calcl 
8175 111782 1740 ld de,calc2 
8178 CD85BD 1750 call multip 
817B ]18DD 1760 jr a5 
817D CDFF81 1770 a6: call fin 
8180 C9 1780 ret 

1790 ;--* SOMME D'UNE SUITE ARITHMETIQUE *-- 
8181 3E03 1800 suitel: ld a,3 
8183 213582 1810 id hl,fonct 
8186 BE 1820 cp  (hl) 
8187 2027 1830 jr  nz,suite2 
8189 F1 1840 pop af 
818A FEO4 1850 Cp 4 
818C CO 1860 ret nz 
818D AF 1870 xOT a 
818E 210200 1880 id h1,2 
8191 112182 1890 ld de,calc4 
8194 CD64BD 1900 call entflo 
8197 211282 1910 ld hl,calcl 


819A 111782 1920 ld de,calc2 


MATHÉMATIQUES 


8190 CD7CBD 1930 call additi 
81A0 111C82 1940 ld de,calcz 
81A3 CD85BD 1950 call multip 
81A6 112182 1960 ld de,calc4 
81A9 CD88BD 1970 call divise 
81AC CDFF81 1980 call fin 
81AF C9 1990 ret 

2000 ;--* SOMME D'UNE SUITE GEOMETRIQUE *-- 
81B0 3E04 2010 suite2: 1d a,4 
81B2 213582 2020 id h1l,fonct 
8185 BE 2030 cp (hl) 
81B6 CO 2040 ret nz 
8187 F1 2050 pop af 
81B8 FEO4 2060 cp 4 
81BA CO 2070 ret nz 
81BB AF 2080 xXOT a 
81BC 210100 2090 id h1,1 
81BF 112182 2100 ld de,calc4 
81C2 CD64BD 2110 call entflo 
81C5 111782 2120 ld de,calc2 
81C8 212682 2130 ld hl,calc5 
81CB CD61BD 2140 call copie 
81CE 211782 2150 ld hl,calc2 
81D1 111C82 2160 ld de,calc3 
81D4 CDAOBD 2170 call puiss 
81D7 112182 2180 ld de,calc4 
81DA CD82BD 2190 call soustr 
81D0 212682 2200 id hl,calcs 
81E0 112182 2210 ld de,calc4 
81E3 CD82BD 2220 call soustr 
81E6 211282 2230 id hl,calcl 
81E9 111782 2240 ld de,calc2 
81EC CD85BD 2250 call multip 
B1EF 112682 2260 ld de,calc5 
81F2 CD88BD 2270 call divise 
81F5 CDFF81 2280 call fin 
81F8 C9 2290 ret 

2300 ; 

81F9 010500 2310 stock: Id bc,5 
81FC EDBO 2320 ldir 
81FE C9 2330 ret 
81FF 211282 2340 fin: id hl,calcl 
8202 ED5BOC82 2350 ld de,(stol) 
8206 010500 2360 ld bc,5 
8209 EDBO 2370 ldir 
820B C9 2380 ret 

2390 ; 
820C 2400 stol: defs 2 


820E 2410 sto2: defs 2 


300 

8210 2420 sto3: 
8212 2430 calcl: 
8217 2440 calc2: 
821C 2450 calc3: 
8221 2460 calc4: 
8226 2470 calc5: 
822B 2480 calcé: 
8230 2490 calc7: 
8235 2500 fonct: 
8237 2510 un: 
Pass 2 errors: O0 

al 8025 a2 803D 
a4 80E9 a5 815A 
additi BD7C calcl 8212 
calc3 821C calc4 8221 
calcé 822B calc7 8230 
copie BD61 divise BD88 
ext 800A facto 80E7 
fin 81FF fonct 8235 
multip BD85 non 8050 
racine BD9D rout 8080 
soustr BD82 space 8062 
sto2 820E sto3 8210 
suitel 8181 suite2 81B0 
un 8237 

Table used: 472 from 


Executes: 32768 
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defs 
defs 
defs 
defs 
defs 
defs 
defs 
defs 
defs 
defs 


UN UT Ur Ur Ur U1 Uri 1 N 


a3 805B 
a6 817D 
calc2 8217 
calc5 8226 
compar BD8E 
entflo BD64 
factor 813B 
invsig BD91 
puiss BDAO 
TSX BCD] 
stol 820C 
stock 81F9 
testsi BD94 


900 


ANNEXE 1 


UTILISATION, IMPLANTATION, 
LONGUEUR DES ROUTINES 


NOM ET FONCTION DES ROUTINES NON RSX 


Les seules routines NON RSX se trouvent dans le chapitre 2 sur le traitement des 
nombres. 


NOM ROUTINE FONCTION 


AFFBIN affichage binaire 
AFFHEX affichage hexa décimal 
AFFNUM affichage entier non signé (avec vecteurs) 


AFFENTS affichage entier signé (avec vecteurs) 
ASCII affichage entier non signé 

ASCIIS affichage entier signé 

AFFLOT affichage flottant (avec vecteurs) 
ENTFLO récupération partie entière d'un flottant 
DECFLO récupération partie décimale d'un flottant 











ROUTINES DE | EXPOS. 
TRAITEMENT 


DU FLOTTANT 


MANTISSE 


















oct 1 oct 2 oct 3 oct 4 oct 5 










AFFLOT / ENTFLO / DECFLO | # 7008 | # 700D | # 7012 | # 7017 
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UTILISATION DES ROUTINES NON RSX 





ENTREE 

































NOM ROUTINE ADRESSE BUFFER 
IMPLANTATION en SORTIE 
AFFBIN entière #7036 à #7045 
AFFHEX entière #7046 à #7049 
AFFNUM entière #70EF à #70F3 
AFFENTS entière #7111 à #7116 
ASCII entière #7045 à #704A 
ASCIIS entière #706C à #7072 
AFFLOT flottante £ #721C à #7221 
ENTFLO flottante : #709F à #70A0 


DECFLO flottante #70EF à #70F0 





NOM ET FONCTION DES ROUTINES RSX 


NOM ROUTINE FONCTION 

















FIND recherche d'une chaîne de caractères 
CHANGE remplacement d'une chaîne de caractères 
TRIC tri de chaînes de caractères 

TRIE tri de nombres entiers 

TRIR | tri de nombres réels 

COULGRAF encres du stylo et du papier graphiques 
FENGRAF création d'une fenêtre pour les graphiques 
TRIANGLE tracé de triangle quelconque 

RECTANGLE 1 tracé de rectangle 

RECTANGLE 2 tracé de rectangle (avec orientation) 
CERCLE tracé de cercle 

ELLIPSE tracé d'ellipse (avec orientation) 
POLYGONE tracé de polygone régulier (avec orientation) 
COPZONE copie d'une zone d'écran 

ZOOM agrandissement d'une zone de l'écran 
SUPZOOM agrandissement d'une zone avec déplacement 


AIRE calculs d’aire 
VOLUME calculs de volume 
ELECTRICITE calculs d'électricité 
PHYSIQUE calculs de physique 
MATH calculs de maths 
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APPEL RSX AVEC PASSAGE DE PARAMETRES 


































Rappel 

L'appel d'une fonction RSX se fait de la manière suivante : 

INOMRSX;parm sise tn sidi MSN ae cannes ,parm N 
NOM RSX PARAMETRES (dans l'ordre indiqué) 

FIND adr déb zone, adr fin zone, adr txt voulu 

CHANGE adr déb zone, adr fin zone, adr txt anc, adr txt nouv 

TRIC adr 1° élément, [nb élément à trier] 

TRIE adr 1° élément, [nb élément à trier] 

TRIR adr 1° élément, [nb élément à trier] 














COULGRAF 
FENGRAF 
TRIANGLE 
RECTANGLE (1) 
RECTANGLE (2) 


encore stylo, [encre papier] 

X bord gauche, X bord droit, Y bord haut, Y bord bas 

X som 1, ŸY som 1, X som 2, Y som 2, X som 3, Y som 3 
X pt dépt, Y pt dépt, lg 1‘ cote, 1 g 2° cote 

X pt dépt, Y pt dépt, Ig 1° cote, Ig 2° cote, angle 













CERCLE X centre, Ÿ centre, rayon 

ELLIPSE X centre, Y centre, lg 1°’ mi-axe, Ig 2° mi-axe, angle 
POLYGONE nb cotes, X centre, Y centre, rayon, angle au 1* sommet 
COPZONE X départ, Y départ, lg zone, haut zone, X arrivé, Y arrivé 
ZOOM X départ (bas gauche), Y départ (bas gauche) 


SUPZOOM X départ (bas gauche), Y départ (bas gauche) 
























AIRE numéro fonction, paramètres pour la fonction voulue 


VOLUME numéro fonction, paramètres pour la fonction voulue 
ELECTRICITE numéro fonction, paramètres pour la fonction voulue 
PHYSIQUE numéro fonction, paramètres pour la fonction voulue 


MATH numéro fonction, paramètres pour la fonction voulue 
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TABLEAU D'IMPLANTATION DES ROUTINES EN MEMOIRE 



























IMPLANTATION EN MEMOIRE 
INSTRUCTIONS DONNEES INSTRUCTIONS DONNEES 
AFFBIN 


AFFHEX 


AFFNUM #7000 
AFENTS #7000 
ASCII #7000 
ASCIIS #7000 
AFFLOT #7000 
ENTFLO 
DECFLO 





NOM RSX 








ou 







ROUTINE 

















COULGRAF 
FENGRAF 
TRIANGLE 
RECTANGLE 1 
RECTANGLE 2 
CERCLE 
ELLIPSE 
POLYGONE 
COPZONE 
ZOOM 
SUPERZOOM 













AIRE 
VOLUME 
ELECTRICITE 
PHYSIQUE 
MATH 
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TABLEAU DES LONGUEURS 


NOM RSX LONGUEUR (en décimal) 





ou ROUTINE 


ROUTINE 


AFFBIN 
AFFHEX 
AFFNUM 
AFENTS 
ASCII 
ASCIIS 
AFFLOT 
ENTFLO 
DECFLO 


COULGRAF 
FENGRAF 
TRIANGLE 
RECTANGLE 1 
RECTANGLE 2 
CERCLE 
ELLIPSE 
POLYGONE 
COPZONE 
ZOOM 
SUPERZOOM 








AIRE 
VOLUME 
ELECTRICITE 
PHYSIQUE 
MATH 

















ANNEXE 2 


LES CHARGEURS DE ROUTINES 


Dans cette annexe, vous trouverez le chargeur correspondant à la routine que vous 
voulez charger en mémoire. 


Les chargeurs sont présentés suivant l'ordre de l'apparition de la routine dans 
l'ouvrage. 


Nous avions dit, en introduction, que les routines pouvaient être facilement 
relogeables ; si vous en éprouvez le besoin, il vous sera très facile d'intégrer quelques 
instructions supplémentaires au CHARGEUR pour y arriver. 


Pour ce faire, servez-vous du TABLEAU D'IMPLANTATION EN MEMOIRE de 
l'annexe 1 ; en effet, il vous faudra couper les lignes de DATA en deux parties, ou 
quatre parties distinctes, soit : 


— instructions RSX 

— données RSX 

— instructions ROUTINE 
— données ROUTINE 


La méthode est assez simple ; il faut dans un premier temps dupliquer les lignes 10 à 
70 (60 non comprise) en 2 ou 4 fois, selon qu'il s’agit d'une routine non RSX ou RSX. 


La variable “d” indique l'adresse de début d'implantation, et la variable “f” l'adresse de 
fin d'implantation. 
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PRÉCAUTIONS IMPORTANTES 


(1) il faut modifier les lignes DATA en fonction du nouvel emplacement des données. 
Ceci se fera à l'aide du listing assembleur de la routine. 


(2) il faut modifier, ou mieux supprimer, le contrôle effectué à l’aide du 17° élément de 
chaque ligne de DATA. 
La suppression est fort simple ; il vous suffit pour cela de supprimer cet élément, 
ainsi que les lignes 50 et 60 du CHARGEUR, où s'effectuent respectivement, la 
lecture et le contrôle de celui-ci. 


PRÉCISION CONCERNANT LE CONTRÔLE 


Le contrôle de l'exactitudes des octets des lignes se fait en comparant le 17° élément 
de chaque ligne de DATA avec la somme de tous les octets précédents. 
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Chargeur AFFBIN 


10 d=8&7000:f-8&7046:n=100:s-0Q@ 

2Q FOR i=1i TO 16 

3Q READ v$:v=VAL("&"+v$):s=s+v:POKE d,v: 

d=d+i 

4Q NEXT 

50 READ c$:c=VAL("&"+c$) 

60 IF HEX$(c)<>HEX$(s) THEN PRINT'erreur 
ligne ";n:END 

7@ n=n+1@:I1F d<f THEN 2Q 

89 PRINT'ok'":END 

10Q DATA CD,@0@,B9,ED,4B,34,7@,DD,21,46,7 

@,1E,01,16,07,79,@SCB 

11Q DATA DD,2B,CB,3F,38,06,DD,36,00,30Q,1 

8,04,DD,36,00,31,@ABE 

12© DATA 15,CB,7A,28,EB,1D,CB,7B,20,03,4 

8,18,E0,21,36,70Q,10B8 

13Q DATA CD,7D,C3,C9,3B,F9,00,00,00,00,0Q 

0,00,00,00,00,00@,14C2 

14Q DATA @0,00,00,00,00,00,00,00,00,00,0Q 

@,00,00,00,@0,0Q,14C2 


Chargeur AFFHEX 


10 d=8&7000:f-&7Q4A:n=100:s-Q 

2Q FOR i=1 TO 16 | 

39 READ v$:v=VAL("&"+v$):s=s+v:POKE d,v: 

d=d+i 

4Q NEXT 

5Q READ c$:c=VAL("&"+c$) 

6Q IF HEX$(c)<>HEX$(s) THEN PRINT'erreur 
ligne "3n:END 

7Q n=n+1@:I1F d<f THEN 2Q@ 

8Q PRINT'"'ok'":END 

109 DATA CD,@0@,B9,ED,4B,44,7@,DD,21,4A,7 

@,1E,01,79,E6,0F,0@6B7 

11© DATA FE,04A,38,@2,CE,07,A7,CE,30,DD,2 

B,DD,77,00,79,CB,@E13 

12© DATA SF,CB,S3F,CB,3F,CB,S8F,FE,0A,38,0 

2,CE,07,A7,CE,30,15S2C 

13Q DATA DD,2B,DD,77,0@0,1D,CB,7B,20,03,4 

8,18,D0,21,46,70Q,1B15 

14Q DATA CD,7D,C3,C9,E3,F0,00,00,00,00,0Q 

@,00,00,00,00,0Q,1FBE 


310 RSX ET ROUTINES ASSEMBLEUR SUR AMSTRAD CPC 


Chargeur AFFNUM 


19 d=&7000:f-8&710B:n=100:s=0Q 

2Q FOR i=1 TO 16 

3Q READ v$:v=VAL("&"+v$):s=s+v:POKE d,v: 

d=d+i 

4Q NEXT 

5Q READ c$:c=VAL("&"+c$) 

69 IF HEX$(c)<>HEX$(s) THEN PRINT'erreur 
ligne ";n:END 

7Q n=n+1@:I1F d<f THEN 2@ 

8Q PRINT'ok":END 

19Q DATA CD,00,B9,3E,@5,DD,21,EF,7@,DD,3 

6,00,20,DD,23,3D,0696 

119 DATA 20@,F7,0@1,F4,7@,ED,43,@A,71,S8E,0Q 

@,32,F4,70Q,S8E,@A,@CD9 

12Q DATA DD,21,FA,7@,DD,36,00,00@,DD,23,3 

D,2@,F7,2A,ED,7©@,142F 

13Q DATA 11,FA,7@,CD,64,BD,21,FA,7@,11,F 

5,70,01,05,@0Q,ED, 1B8C 

14Q DATA B@,24,06,71,11,FF,7@,CD,64,BD,2 
1,FA,7©,11,FF,70,2356 

150 DATA CD,88,BD,21,FA,7@,CD,73,BD,ED,4 

B,FA,7@,ED,43,08,2CCA 

16Q DATA 71,24,08,71,11,FA,7@,CD,64,BD,2 

A,06,71,11,FF,70,3368 

17© DATA CD,64,BD,18,02,18,A7,11,FF,7@,2 
1,F4A,70,CD,85,BD,3B49 

189 DATA 21,FA,7@,11,FF,70@,0@1,05,0Q@,ED,B 

@,21,rF5,70,11,FA,4288 

19Q DATA 70©,0©1,0@5,0@,ED,B@,DD,21,FF,7@,D 

D,7E,@4,FE,0Q@,CC,4A31 

200 DATA E8,70,21,FA,7@,11,FF,7@,CD,82,B 

D,24,04,71,11,FF,524F 

21Q DATA 7@,CD,64,BD,21,FA,7@,11,FF,7@,C 

D,7C,BD,21,FA,7@,5B49 

22Q DATA CD,73,BD,2A,FA,7@,ED,4B,0A,71,0Q 

B,ED,43,04A,71,7D,62CQ@ 

23Q DATA 24,0A,71,77,24,08,71,7D,FE,00,2 

8,05,22,ED,70©,18,67BE 

24Q DATA 94,21,EF,7@,CD,7D,C3,C9,DD,36,0Q 

4,80,C9,39,30,00,GF71 

250 DATA @0,00,00,00,00,00,00,00,00,00,0Q 

@,00,00,00,00,00,6F71 | 

26Q DATA ©0,00,00,00,30,00,04,00,00,00,Q 

@,00,00,00,00,00,GFAB 


ANNEXE 2 


Chargeur AFENTS 


10 d=8&7000:f-8R712E:n=100:s-0 

2@ FOR i=1 TO 16 

389 READ v$:v=VAL("&"+v$):s=s+v:POKE d,v: 

d=d+1 

4Q NEXT 

5 READ c$:c=VAL("&"+c$) 

6Q IF HEX$(c)<>HEX$(s) THEN PRINT'erreur 
ligne ";3n:END 

7@ n=n+10:I1F d<f THEN 2Q@ 

8@ PRINT'"ok":END 

10Q@ DATA CD,@@,B9,3E,0@6,DD,21,11,71,DD,3 

6,00,2@,DD,23,3D,©@5BA 

11© DATA 20@,F7,@1,17,71,ED,43,2D,71,8E,0Q 

@,32,17,71,2A,@F,@AS9 

120 DATA 71,E5,CB,7C,28,@A,7C,2F,67,7D,2 

F,6F,23,22,@F,71,1@14 

13Q DATA 3SE,@A,DD,21,1D,71,DD,36,0@,00Q,D 

D,23,3D,20,F7,24,157F 

14Q DATA @F,71,11,1D,71,CD,64,BD,21,1D,7 
1,11,18,71,01,05, 19DB 

15Q DATA @O,ED,B@,24,29,71,11,22,71,CD,6 

4,BD,21,1D,71,11,1FS8E 

169 DATA 22,71,CD,88,BD,21,1D,71,CD,73,B 

D,ED,4B,1D,71,ED,2792 

17Q© DATA 43,2B,71,2A,2B,71,11,1D,71,CD,6 

4,BD,2Z24,29,71,11,2C99 

180 DATA 22,71,CD,64,BD,18,02,18,47,11,2 

2,71,21,1D,71,CD,3213 

19Q© DATA 85,BD,21,1D,71,11,22,71,@1,@5,0Q 

Q@,ED,B@,21,18,71,S86F5S 

29Q DATA 11,1D,71,@1,@5,@@,ED,B@,DD,21,2 

2,71,DD,7E,@4,FE,S3D25 

21© DATA @@,CC,@A,71,21,1D,71,11,22,71,C 

D,82,BD,24,27,71,428D 

22Q DATA 11,22,71,CD,64,BD,21,1D,71,11,2 

2,71,CD,7C,BD,21,4899 

23Q DATA 1D,71,CD,73,BD,2A,1D,71,ED,4B,2 

D,71,@B,ED,43,2D,4F1A 

24Q DATA 71,7D,24,2D,71,77,2A4,2B,71,7D,F 

E,00,28,05,22,@F,53E6 

259 DATA 71,18,94,E1,CB,7C,28,@4,3E,20D,1 

8,02,3E,2B,2A4,2D,589C 

26@ DATA 71,2D,77,21,11,71,CD,7D,C3,C9,D 

D,36,04,80,C9,D5,605F 

27Q DATA DD,@0,00,00,00,00,00,00,00,00,0Q 

@,00,00,00,00,00,613C 

280 DATA @00,00,00,00,00,00,00,30,00,0A,0Q 

0,00,00,00,00,00,6176 


312 RSX ET ROUTINES ASSEMBLEUR SUR AMSTRAD CPC 


Chargeur ASCII 


19 d=8&7000:f-8&704A:n=100:s=@ 

2Q FOR i=1 TO 16 

3Q READ v$:v=VAL("&"+v$):s=s+v:POKE d,v: 

d=d+1 

4Q NEXT 

SQ READ c$:c=VAL("&"+c$) 

6Q IF HEX$(c)<>HEX$(s) THEN PRINT'erreur 
ligne ";n:END 

7@ n=n+1@:IF d<f THEN 20@ 

8Q PRINT'ok":END 

19Q DATA CD,@@,B9,ED,4B,43,7@,DD,21,45,7 

@,11,10,27,CD,30,0669 

11Q DATA 7@,11,E8,03,CD,30,70,11,64,@0,C 

D,30,7@,11,0A,00,@B3F 

12Q DATA CD,30@,7@,11,0@1,0@,CD,30@,70@,21,4 

5,70,CD,7D,C3,C9,11D7 

13Q DATA 3E,2F,60,69,3C,ED,52,30,FB,ED,5 

A,44,4D,DD,77,@Q@,18DF 

14Q DATA DD,23,C9,7D,00,00,00,00,00,00,0Q 

@,00,00,00,00,00,1B25 


Chargeur ASCIIS 


19 d=&7000:rf-87072:tn=100:t=-0 

2Q FOR i=1 TO 16 

30 READ v$:v=VAL("&"+v$):s=s+v:POKE d,v: 

d=d+i 

4Q NEXT 

5 READ c$:c=VAL("&"+c$) 

6© IF HEX$(c)<>HEX$(s) THEN PRINT'erreur 
ligne ";n:END 

7@ n=n+1@:I1F d<f THEN 2@ 

8Q PRINT'"ok":END 

109 DATA CD,@@,B9,ED,4B,64,7@,CB,78,28,0Q 

B,78,2F,47,79,2F,@6A4 

110 DATA 4F,083,3E,2D,18,02,3E,2B,32,6C,7 

@,DD,21,6D,7@,11,@ADE 

12Q DATA 1@,27,CD,57,7@,11,E8,03,CD,57,7 

@,11,64,00@,CD,57,1@D2 

130 DATA 7@,11,0@A,0@,CD,57,7@,11,@1,00,C 

D,57,7@,21,6D,7Q,1595 

140 DATA 2B,01,07,00,0B,23,7E,FE,30,28,F 

9,11,6D,7@,ED,B©,1B4E 

15Q DATA 21,6C,7@,CD,7D,C3,C9,3E,2F,60,6 

9,3C,ED,52,30,FB,22FD 

169 DATA ED,5A,44,4D,DD,77,@@,DD,23,C9,D 

5,DD,00,00,0@0,@Q,29aA4 

17©Q DATA 0@,00,00,00,00,00,00,00,00,00,0 

@,00,00,00,00,@Q,29A4 


ANNEXE 2 


Chargeur AFFLOT 


19 da=8&7000:f-87256:n=100:s-0Q 

2Q FOR i=1 TO 16 

3Q READ v$:v=VAL("&"+v$):s=s+v:POKE d,v: 

d=d+1 

4Q NEXT 

59 READ c$:c=VAL("&"+c$) 

69 IF HEX$S(c)<>HEX$(s) THEN PRINT'erreur 
ligne ";n:END 

7Q n=n+1@:1F d<f THEN 20 

8Q PRINT'"'ok":END 

199 DATA CD,@0@,B9,DD,21,13,72,3E,00Q@,DD,7 

7,0Q,3E,00,DD,77,@62D 

11@ DATA @1,3E,00@,DD,77,@2,3E,A8,DD,77,@ 

3,38E,84,DD,77,04,@C19 

129 DATA DD,21,13,72,DD,7E,03,CB,7F,20@,0Q 

4,3E,2B,18,02,S3E, 1129 

13Q© DATA 2D,32,56,72,DD,7*E,03,CB,27,CB,2 

F,DD,77,03,21,13,172S 

14Q DATA 72,11,40,72,@1,05,@Q@,ED,B@,21,4 

@,72,CD,73,BD,2A,1CF7 

150 DATA 40@,72,22,18,72,24,18,72,11,40@,7 

2,CD,64,BD,DD,21,22B8 

16Q© DATA 4@,72,DD,7E,03,CB,27,CB,2F,DD,7 

7,03,21,40,72,11,28EF 

17Q DATA 45,72,01,@5,0@,ED,B@,21,13,72,1 
1,40,72,01,05,00,2CB8 

180 DATA ED,B@,21,40@,72,11,45,72,CD,82,B 

D,24,44,72,11,45,3338 

190 DATA 72,CD,64,BD,21,40,72,11,45,72,0C 

D,85,BD,21,4@,72,3A15 

200 DATA CD,73,BD,2A,4@,72,22,14,72,2A,1 

8,72,22,54,72,CD,4005 

21© DATA 1B,71,21,1C,72,11,23,72,01,06,0Q 

Q,ED,BQ,2A,14,72,444@ 

22Q DATA 22,54,72,CD,1B,71,21,1C,72,11,2 

9,72,0@1,06,@0,ED,48D0 

23Q DATA B@,@1,06,00,21,23,72,11,2F,72,7 

E,FE,20@,2@,@4,23,4CD2 

24Q DATA @D,18,F7,CS5S,ED,B@,C1,21,2F,72,0Q 

9,8E,2C,77,23,54,5334 

250 DATA 5D,21,29,72,0@1,06,@Q,7E,FE,20,2 

@,02,18,0A,FE,2D,57SF 

269 DATA 20@,02,18,04,FE,2B,2@,0@4,23,QD,1 

8,EB,ED,B©,3A,56,5SC4A 

27Q DATA 72,32,2F,72,21,2F,72,CD,7D,C3,C 

9,3E,06,DD,21,1C,6285 

28Q DATA 72,DD,36,@0@,20@,DD,23,3D,20,F7,Q 
1,22,72,ED,43,52,6895 


314 RSX ET ROUTINES ASSEMBLEUR SUR AMSTRAD CPC 


29@ DATA 72,3E,00,32,22,72,2A,54,72,E5,3 
E,©@A,DD,21,40,72,6DD8 
300 DATA DD,36,00,00,DD,23,3D,20,F7,2A,5 
4,72,11,40,72,CD,73BF 
310 DATA 64,BD,21,40,72,11,3B,72,01,05,0 
@,ED,B@,2A,4E,72,78FE 
320 DATA 11,45,72,CD,64,BD,21,40,72,11,4 
5,72,CD,88,BD,21,7F82 
330© DATA 40,72,CD,73,BD,ED,4B,40, 72, ED,4 
3,50,72,2A,50,72,86F9 
34Q DATA 11,40,72,CD,64,BD,2A,4E,72,11,4 
5,72,CD,64,BD,18,8D62 
350 DATA 02,18,A7,11,45,72,21,40,72,CD,8 
5,BD,21,40,72,11,92B1 
360 DATA 45,72,01,05,00,ED,B0,21,3B,72,1 
1,40,72,01,05,00,96A2 
37© DATA ED,B@,DD,21,45,72,DD,7E,04,FE,O@ 
@,CC,@E,72,21,40@,9DFE 
38Q DATA 72,11,45,72,CD,82,BD,2A,4C,72,1 
1,45,72,CD,64,BD,A4E2 
390 DATA 21,40,72,11,45,72,CD,7C,BD,21,4 
@,72,CD,73,BD,2A,AB7D 
40Q DATA 40,72,ED,4B,52,72,@B,ED,43,52,7 
2,7D,2A,52,72,77,B20@C 
41© DATA 24,50,72,7D,FE,00,28,05,22,54,7 
2,18,94,E1,CB,7C,B85C 
42© DATA 28,04,8E,2D,18,02,3E,2B,24,52,7 
2,2D;77,C9, DD, 36, BCE4 
430 DATA ©4,80,C9,00,00,00,00,00,00,00,0 
0,00,00,00,00,00,BE31 
44Q DATA 00,00,00,00,00,00,00,00,00,00,0 
0,00,00,00,00,00,BE31 
450 DATA 00,00,00,00,00,00,00,00,00,00,0Q 
0,00,00,00,00,00,BE31 
46Q DATA 00,00,00,00,00,00,00,00,00,00,E 
8,03,30,00,0A,00,BF56 
47© DATA 00,00,00,00,00,00,00,00,00,00,0 
0,00,00,00,00,00,BF56 


ANNEXE 2 
Chargeur ENTFLO 


10 d=8&7000:f-8&70AI9:n=100:s-0Q 

2Q FOR i=1 TO 16 

3Q READ v$:v=VAL("&"+v$):s=s+v:POKE d,v: 

d=d+1 

4@ NEXT 

5 READ c$:c=VAL("&"+c$) 

69 IF HEX$(c)<>HEX$(s) THEN PRINT'erreur 
ligne ";n:END 

7Q n=n+1@:I1F d<f THEN 2@ 

8Q PRINT'"ok":END 

10Q DATA CD,@@,B9,DD,21,9A,7@,3E,DD,DD,7 

7,00,3E,24,DD,77,07B3 

11@ DATA @1,S8E,E7,DD,77,02,3E,40,DD,77,Q 

8,3E,8F,DD,77,@4,@E29 

12© DATA CB,BF,FS,DE,08,30,16,F1,2F,3C,C 

6,08,DD,4E,03,CB,15F7 

130 DATA F9,CB,39,3D,20,FB,06,00Q,ED,43,9 

F,70,C9,F1,FS,DE,1FI1E 

14Q DATA 10©,38,08,F1,21,A1,7@,CD,7D,C3,C 

9,F1,2F,3C,C6,10,2699 

150 DATA F5,DD,21,9A,7@,DD,6E,02,DD,66,0 

8,CB,FC,11,00,00Q,2EQ1 

160 DATA CB,3D,3D,20@,FB,F1,2F,3C,C6,08,F 

5,CB,3B,CB,45,28,SSBE 

17© DATA @4,CB,FB,18,02,CB,BB,CB,3D,3D,2 

Q,EF,F1,2F,3C,C6,3D9E 

18Q DATA @8,28,11,CB,3B,CB,44,28,04,CB,F 

B,18,02,CB,BB,CB,4451 

190 DATA 3C,3D,20@,EF,54,ED,53,9F,70,C9,Q@ 

@,00,00,00,00,00Q,4945 

200 DATA @0,6F,76,65,72,66,6C,6F,77,00,0Q 

0,00,00,00,00,00Q,4CB9 


316 RSX ET ROUTINES ASSEMBLEUR SUR AMSTRAD CPC 


Chargeur SECFLO 


10 d=87000:f-870F3:n=100:s:-0@ 

2Q FOR i=1 TO 16 

8Q READ v$:v=VAL("&"+v$):s=s+v:POKE d,v: 

d=d+1 

4Q NEXT 

SQ READ c$:c=VAL("&"+c$) 

6Q IF HEX$(c)<>HEX$(s) THEN PRINT'erreur 
ligne ";n:END 

7© n=n+1@:IF d<f THEN 29 

8Q PRINT'"'ok":END 

10Q DATA CD,@@,B9,DD,21,EA,7@,S3E,DD,DD,7 

7,0Q,3E,24,DD,77,0803 

11© DATA @1,S3E,E7,DD,77,02,3E,4@,DD,77,0Q 

8,8E,89,DD,77,04,@E73 

12Q DATA CB,BF,4F,F5,DE,09,3@,@C,DD,7E,@ 

2,6F,DD,7E,03,67,15SFS 

13Q DATA CB,FC,18,1B,F1,FS,DE,10,38,08,F 
1,21,F1,7@,CD,7D,1ECQ@ 

14Q DATA C3,C9,F1,F5S,DE,08,4F,DD,7E,01,6 

F,DD,7E,02,67,F1,27E7 

150 DATA 79,F5S,DE,00,28,05,CB,24,3D,20,F 

B,F1,2F,3C,C6,08,2ED1 

16Q DATA F5,DE,06,CB,7F,28,48,F1,FS5,11,0Q 

@,00,CB,23,CB,7C,3690Q 

179 DATA 28,04,CB,C3,18,02,CB,83,CB,24,3 

D,2Q@,EF,F1,2F,3C,3D49 

18Q DATA C6,06,28,15,CB,7F,2@,11,CB,23,C 

B,7D,28,04,CB,C3,43BD 

190 DATA 18,02,CB,83,CB,25,3D,20,EF,8E,Q 

3,62,6B,19,29,19,48CA 

209 DATA 29,54,5SD,3D,20,F7,11,FA,00,19,1 

9,CD,B4,70,C9,F1,4FEQ 

210 DATA SE,06,18,B4,3E,06,11,00,00,CB,3 

D,3D,20,FB,3E,02,5SS8SES 

220 DATA CB,3B,CB,45,28,04,CB,FB,18,02,C 

B,BB,CB,S3D,3D,20@,SAF2 

230 DATA EF,3E,06,CB,3B,CB,44,28,04,CB,F 

B,18,02,CB,BB,CB,6297 

24Q DATA 3C,3D,20@,EF,54,ED,583,EF,70,C9,0 

@,00,00,00,00,00,67DB 

250 DATA ©0,6F,76,65,72,66,6C,6F,77,00,0Q 

0,00,00,00,00,00,6B4F 


ANNEXE 2 


Chargeur FIND 


19 d=&6FAQ:f-8&7OBF:n=100:s=0Q 

2Q FOR i=1 TO 16 

30 READ v$:v=VAL("&"+v$):s=s+v:POKE d,v: 

d=d+1 

4Q NEXT 

5Q READ c$:c=VAL("&"+c$) 

6Q IF HEX$(c)<>HEX$(s) THEN PRINT'erreur 
ligne ";n:END 

7 n=n+1@:IF d<f THEN 20Q 

8Q PRINT'"'ok":END 

10Q DATA @1,AA,6F,21,C8,6F,CD,D1,BC,C9,C 

3,6F,DD,66,05,DD,@B8EC 

119 DATA 6E,04,DD,46,03,DD,4E,@2,DD,56,Q 
1,DD,SE,00@,FE,03,@F21 

12Q DATA C@,18,3D,46,49,4E,C4,00,00,00,0Q 

0,00,00,00,00,00Q,11D7 

130 DATA @0,00,00,00,00,00,00,00,00,00,0Q 

@,00,00,00,00,0@Q,11D7 

140 DATA @0,00,00,00,00,00,00,00,00,00,Q 

@,00,00,00,00,00Q,11D7 

150 DATA 00,00,00,00,00,00,00,00,00,00,0Q 

@,00,00,00,00,@Q,11D7 

160 DATA ED,53,98,70@,CD,00,B9,EB,8E,00,B 

E,28,22,EB,DD,2A,19C8 

17© DATA 98,7@,DD,7E,@@,BE,20@,2D,22,96,7 

@,DD,23,DD,7E,00,20@B9 

18Q DATA FE,00,28,12,CD,4B, 70, 28,05,BE,2 

8,EF,18,11,C9,21,268E 

19Q DATA A1,70,CD,7D,C3,C9,E5,C5,D5,CD,5 

6,70,D1,C1,E1,CD,31C7 

20Q DATA 4B,7@,2@,CA,C9,CD,4B,70,2@,CB,C 

9,23,ES,D1,ES5,C5,3AF4 

21Q DATA E1,A7,ED,52,E1,C9,ED,4B,96,70,D 

D,21,9A,7@,11,1@,43CC 

22Q DATA 27,CD,83,7@,11,E8,03,CD,83,70,1 
1,64,00,CD,83,7@,4AA4 

23Q DATA 11,0A,00,CD,83,70@,11,01,0@0,CD,8 

3,70,21,9A,70@,CD,50@49 

249 DATA 7D,C3,C9,8E,2F,60,69,3C,ED,52,3 

@,FB,ED,SA,44,4D,5806 

250 DATA DD,77,@0,DD,28,C9,00,00,00,00,0Q 

0,00,00,00,0Q,@A,S5SB2D 

260 DATA @0,74,65,78,74,65,20,65,6E,74,7 

2,65,20,69,6E,63,6QEF 

27Q DATA 6F,72,72,65,63,74,20@,2F,20@,61,7 

2,72,65,74,0A4,00,6615S 


318 RSX ET ROUTINES ASSEMBLEUR SUR AMSTRAD CPC 


Chargeur CHANGE 


10 d=&GFAQ:f-=87169:n=100:s-0@ 

2Q FOR i=1 TO 16 

3Q READ v$:v=VAL("&"+v$):s=s+v:POKE d,v: 

d=d+i 

4Q NEXT 

5Q READ c$:c=VAL("&"+c$) 

6Q IF HEX$(c)<>HEX$(s) THEN PRINT'erreur 
ligne ";n:END 

7© n=n+1@:1F d<f THEN 20@ 

89 PRINT'"'ok":END 

10Q DATA @1,AA,6F,21,E4,6F,CD,D1,BC,C9,D 

D,6F,DD,66,0©7,DD,@924 

11© DATA 6E,@6,DD,46,05,DD,4E,@4,ED,43,8 

7,71,DD,56,03,DD,@FDA 

12© DATA SE,@2,ED,53,14,71,DD,56,0@1,DD,5 

E,00,ED,53,31,71,1650Q 

130 DATA DD,2A,14,71,FD,2A,31,71,FE,@4,C 

@0,18,23,48,48,41,1C6E 

14Q DATA 4E,47,C5,00,00,00,00,00,00,00,Q 

0,00,00,00,00,00Q,1DC8 

150 DATA ©@,00,00,00,00,00,00,00,00,00,Q 

@,00,00,00,00,00,1DC8 

169 DATA CD,0@0@,B9,11,00,@0@,DD,7E,@Q@,FE,Q@ 

@,28,05,13,DD,23,22F8 

17© DATA 18,F4,ED,583,35,71,7B,D6,00,28,4 
1,DD,24,14,71,11,2941 

189 DATA ©@Q,0Q,FD,7E,@0,FE,00,28,05,13,F 

D,23,18,F4,ED,53,2F66 

190 DATA 33,71,7B,D6,00,28,25,FD,24A,31,7 
1,DD,24,14,71,DD,S3SDA 

200 DATA 7E,@@,BE,2@,48,22,12,71,DD,23,D 

D,7E,00,FE,00,28,3BA4 

21Q DATA 1A,CD,93,70,28,05S,BE,28,EF,18,2 

C,C9,21,46,71,CD,4242 

22Q DATA 7D,C3,C9,E1,21,16,71,CD,7D,C3,C 

9,ES,CS,E1,1E,1E,4B71 

23Q DATA 3E,0@,BE,2@,EE,2B,1D,20,F9,E1,E 

5,C5,DS,DD,ES,CD,5S4CB 

24Q DATA 9E,7@,DD,E1,D1,C1,E1,CD,93,70@,2 

@,AF,C9,CD,93,7@,5F42 

259 DATA 20@,B0@,C9,28,E5,D1,E5S,CS,E1,A7,E 

D,52,E1,C9,21,3D,692D 

260 DATA 71,CD,7D,C3,24,33,71,ED,5B,35,7 
LYAT ED, 52 ;ES;CSTLEF T7 

27Q DATA E1,ED,5B,12,71,A7,ED,52,ED,5B,3 

5,71,ED,52,E5,2A,7ACS 


ANNEXE 2 


289 DATA 12,71,ED,5B,35,71,A7,ED,5A,22,3 
9,71,2A,12,71,ED,8184A 
290 DATA -5B,33,71.A7,ED,54,22,9B,71;E1;D 
1,CB,74,20,16,4A7,8919 
309 DATA ED,S2,E5,D1,E5,2A,39,71,A7,ED,5S 
A,ED,5B,37,71,C1,9266 
31Q DATA ©@3,ED,B8,18,05,CD,08,71,ED,BOQ,E 
D,4B,33,71,2A,31,9945 
329 DATA 71,ED,5B,12,71,ED,BQ@,C9,ES,C1,2 
ÀA,39,71,ED,5B,3B,A1E4 
330 DATA 71,C9,00,00,00,00,66,69,6GE,20,6 
4,65,20,7A,6F,6GE, AGBB 
34Q DATA 65,20,74,65,78,74,65,20,61,74,7 
4,65,69,6E,74,@0A,AC8D 
350 DATA ©0,00,00,00,00,00,00,00,00,00,0 
0,00,00,63,68,61,ADB9 
360 DATA 6E,67,65,20,0A,00,6C,6F,6E,67,7 
5,65,75,72,20,74,B322 
37@ DATA 65,78,74,65,28,73,29,20,6E,75,6 
C,20,2D,20,66,69,B847 
380 DATA 6E,20,74,72,61,69,74,2E,0A,00,0Q 
0,00,00,00,00,00,BB31 


319 


320 RSX ET ROUTINES ASSEMBLEUR SUR AMSTRAD CPC 


Chargeur TRIC 


19 d=8&6FAD:f-=&717D:n=100:s-Q 

2Q FOR i=1 TO 16 

3@ READ v$:v=VAL("&"+v$):s=s+v:POKE d,v: 

d=d+i 

4Q NEXT 

5Q READ c$:c=VAL("&"+c$) 

6@ IF HEX$(c)<>HEX$(s) THEN PRINT'erreur 
ligne ";n:END 

7© n=n+10:I1F d<f THEN 2Q 

8@ PRINT'ok":END 

10Q DATA @1,A4A,6F,21,D3,6F,CD,D1,BC,C9,C 

E,6F,FE,01,28,05,0809 

119 DATA FE,02,28,0C,C9,01,00,00,DD,66,0Q 
1,DD,6E,00,18,40Q,@CEE 

12Q DATA DD,66,03,DD,6E,0@2,DD,46,0@1,DD,4 

E,00,18,32,54,52,12C0Q 

130 DATA 49,C3,00,00,00,00,00,00,00,00,Q 

0,00,00,00,00,00Q,13CC 

14Q DATA 00,00,00,00,00,00,00,00,00,00,0Q 

@,00,00,00,00,00,13CC 

150 DATA 00,00,00,00,00,00,00,00,00,00,0Q 

0,00,00,00,00,00,13CC 

160 DATA CD,00,B9,2B,2B,ES,DD,E1,0B,CB,7 

8,28,08,DD,46,0@1,1AED 

17© DATA DD,4E,00,18,1A,03,CB,78,28, 15,2 
1,57,71,CD,7D,C3,20@C3 

18Q DATA C9,21,08,71,CD,7D,C8,C9,21,2F,7 
1,CD,7D,C3,C9,2B,28BE 

19Q DATA 3E,@1,BE,20@,EC,2B,2B,2B,3E,02,B 

E,20@,EB,DD,2B,DD,2F36 

20Q DATA 22,06,71,ED,43,FE,7@,FD,21, 24 ] 

@,DD,238,DD,23,DD,3669 

21Q DATA 23,DD,7E,0@3, 32,04,71,DD,7E,00,3 

2,02,71,DD,ES, DD, 3D30@ 

229 DATA 6E,@4,DD,66,@5,DD,5E,0@1,DD,56,0Q@ 

2,D5,DD,E1,DD,7E,4S49 

23Q DATA @Q,BE,28,09,5E,A47,93,CB,7F,20,5 

D,18,2B,ED,5B,02,4B24 

24Q DATA 71,1B,ED,53,02,71,CB,7A,2@,4E,E 

D,5SB,0@4,71,1B,ED,51DB 

25 DATA 53,@4,71,CB,7A,2@,11,DD,23,23,1 

8,D2,FD,E1,18,AB,58C7 

260 DATA FD,E1,DD,2A,@6,71,18,9F,DD,E1,D 

D,ES,DD,56,@2,DD,626C 

279 DATA SE,@1,ED,53,00,71,DD,56,@5,DD,5 

E,0@4,DD,72,@2,DD,6921 


ANNEXE 2 


289 DATA 73,@1,ED,5B,00,71,DD,72,05,DD,7 
3,04,DD,7E,@Q@,DD,7@2E 
290 DATA 5E,03,DD,73,00@,DD,77,03,DD,E1,F 
(D,E5,D1,13,D5,2A,78B9 
300 DATA FE,70,2B,A7,ED,52,CB,7C,28,B2,2 
A,FE,70©,2B,22,FE,8183C 
310 DATA 7@,11,02,0@,A7,ED,52,CB,7C,28,A 
9,FD,E1,C9,00,00,8860 
320 DATA @0,00,00,00,00,00,00,00,6C,65,2 
0,74,61,62,6C,65,8B5S9 
330 DATA 61,75,20,61,20,70,6C,75,73,20,6 
4,27,75,6E,20,69,S9SO@AB 
340 DATA 6E,64,69,63,65,20,2F,20,61,72,7 
2,65,74,0A,00,6C,9S5SB1 
350 DATA 65,20,74,61,62,6C,65,61,75,20,6 
E,27,65,73,74,20,9B35S 
360 DATA 70,61,73,20,65,6E,20,27,6E,6F,6 
D,24,27,20,2F,20©,9FB7 
370 DATA 61,72,72,65,74,0A,00,6E,62,20,6 
5,6C,65,6D,65,6E,AS45 
380 DATA 74,73,20,61,20,74,72,69,65,72,2 
0,69,6E,63,6F,72,AB2E 
390 DATA 72,65,63,74,20,2F,20,61,72,72,6 
5,74,0A,00,00,00,AF73 


321 


322 RSX ET ROUTINES ASSEMBLEUR SUR AMSTRAD CPC 


Chargeur TRIE 


19 d=&6FAQ:f=8&711D:n=100:s-=0@ 

2Q FOR i=1 TO 16 

3Q READ v$:v=VAL("&"+v$):s=s+v:POKE d,v:. 

d=d+i 

4Q NEXT 

5Q READ c$:c=VAL("&"+c$) 

6Q IF HEX$(c)<>HEX$(s) THEN PRINT'erreur 
ligne ";n:END 

7Q n=n+10@:I1F d<f THEN 2Q@ 

8Q PRINT'"'ok":END 

10Q DATA @1,AA,6F,21,D3,6F,CD,D1,BC,C9,C 

E,6F,FE,01,28,05,0809 

11© DATA FE,02,28,@C,C9,0@1,00,00,DD,66,0@ 
1,DD,6E,00,18,4Q@,QOCEE 

12Q DATA DD,66,0@3,DD,6E,02,DD,46,@1,DD,4 

E,00,18,32,54,52,12CQ@ 

130 DATA 49,C5,00,00,00,00,00,00,00,00,0Q 

©,00,00,00,00,00Q,13CE 

14Q DATA ©0,00,00,00,00,00,00,00,00,00,0Q 

@,00,00,00,00,@0Q,13CE 

150 DATA @@,00,00,00,00,00,00,00,00,00,0Q 

0,00,00,00,00,0Q,13CE 

169 DATA CD,@0Q,B9,2B,2B,ES5S,DD,E1,@B,CB,7 

8,28,08,DD,46,0@1,1AEF 

17@ DATA DD,4E,00,18,14,03,CB,78,28, 15,2 
1,F7,70,CD,7D,C3,2164 

18Q DATA C9,21,48,70@,CD,7D,C3,C9,21,CF,7 

@,CD,7D,C3,C9,2B,2A9D 

19Q DATA 3E,@1,BE,20,EC,2B,2B,2B,3E,01,B 

E,20@,EB,DD,22,A6,3@D4 

209 DATA 7@,ED,48,A4,7@,FD,21,@1,00,DD,2 

3,DD,23,DD,66,01,37EB 

21Q DATA DD,6E,00,DD,56,03,DD,5E,0@2,ES,D 

5,A7,ED,52,CB,7C,409Q 

22Q DATA 2@,1C,D1,E1,DD,72,@1,DD,73,0@0Q,D 

D,74,03,DD,75,02,47C6 

23Q DATA 18,@E,FD,E1,18,D8,FD,E1,DD,2A,A 

6,70,18,C7,D1,E1,5141 

24Q DATA FD,ES5,D1,13,D5,2A,A4,70,2B,A7,E 

D,52,CB,7C,28,E2,S5SA7C 

25Q DATA 2A,A4,70,2B,22,A4,70,11,02,0@Q,A 

7,ED,52,CB,7C,28,6083 

269 DATA D5,FD,E1,C9,00,00,00,00,6C,65S,2 

0,74,61,62,6C,65,66F8 

270 DATA 61,75,20,61,20,70,6C,75,73,20,6 

4,27,75,6E,20,69,6C4A 


ANNEXE 2 323 


280 DATA 6E,64,69,63,65,20,2F,20,61,72,7 
2,65,74,04,00,6C,7150 
299 DATA 65,20,74,61,62,6C,65,61,75,20,6 
E,27,65,73,74,20@,76D4 
300 DATA 70,61,73,20,65,6E,20,27,6E,6F,6 
D,25,27,20©,2F,20@,7B57 
310 DATA 61,72,72,65,74,04A,00,6E,62,20,6 
5,6C,65,6D,65,6E,80@ES 
320 DATA 74,73,20,61,20,74,72,69,65,72,2 
0,69,6E,63,6F,72,86CE 
330 DATA 72,65,63,74,20,2F,20,61,72,72,6 
5,74,04,00,00,00,8B13 


324 RSX ET ROUTINES ASSEMBLEUR SUR AMSTRAD CPC 


Chargeur TRIR 


19 d=&GFAQ:f-&7152:n=100:s-0@ 

2Q FOR i=1 TO 16 

380 READ v$:v=VAL("&"+v$):s=s+v:POKE d,v: 

d=d+1 

4 NEXT 

5 READ c$:c=VAL("&"+c$) 

69 IF HEX$(c)<>HEX$(s) THEN PRINT'erreur 
ligne ";n:END 

7Q n=n+1@:1F a<f THEN 2@ 

80 PRINT'"ok":END 

10Q DATA @1,AA,6F,21,D3,6F,CD,D1,BC,C9,C 

E,6F,FE,01,28,05,0809 

11© DATA FE,02,28,0C,C9,01,00,00,DD,66,0Q 
1,DD,6E,00,18,4@,@OCEE 

12Q DATA DD,66,03,DD,6E,02,DD,46,01,DD,4 

E,00,18,32,54,52,12C0@ 

130 DATA 49,D2,00,00,00,00,00,00,00,00,0Q 

@,00,00,00,00,00Q,13DB 

14Q DATA ©0,00,00,00,00,00,00,00,00,00,0Q 

@,00,00,00,00,00,13DB 

159 DATA @0,00,00,00,00,00,00,00,00,00,0Q 

@,00,00,00,00,0Q,13DB 

16Q DATA CD,00,B9,2B,2B,ES,DD,E1,0B,CB,7 

8,28,08,DD,46,@1,1AFC 

17Q DATA DD,4E,00,18,14,03,CB,78,28,15,2 
1,2C,71,CD,7D,C3,20@A7 

18Q DATA C9,21,E0,70@,CD,7D,C3,C9,21,07,7 
1,CD,7D,C3,C9,2B,2951 

19Q DATA SE,01,BE,20,EC,2B,2B,2B,3E,04,B 

E,20,EB,DD,2B,DD,2FCB 

290 DATA 2B,DD,2B,DD,22,D4,7@,ED,43,D2,7 

@,FD,21,@1,@Q,DD,37AF 

21© DATA 23,DD,23,DD,23,DD,23,DD,23,FD,E 

5,DD,ES,DD,ES,E1,4219 

22Q DATA 11,D6,70,01,05,00,ED,B@,DD,ES,E 
1,23,28,23,23,23,4865 

23Q DATA 11,DB,7@,01,05,00@,ED,B@,21,D6,7 

@,11,DB,7@,CD,8E,4FrF82 

24Q DATA BD,FE,FF,28,29,21,DB,7@,D1,D5,0Q 
1,05,00,ED,B@,21,5763 

25Q DATA D6,7@,D1,D5,13,13,13,13,13,01,90 

D,00,ED;B0;D1;:DS,5DF7 

26Q DATA 18,Q@C,FD,E1,18,A9,FD,E1,DD,24,D 

4,70,18,9D,DD,E1,6756 

279 DATA D1,13,D5,24,D2,7@,2B,A7,ED,52,C 

B,7C,28,E4,2A,D2,6FDB 


ANNEXE 2 


280 DATA 70,2B,22,D2,70@,11,02,00@,A7,ED,5 
2,CB,7C,28,D7,FD,7716 
290 DATA E1,C9,00,00,00,00,00,00,00,00,0 
0,00,00,00,00,00,78C0Q 
300 DATA 6C,65,20,74,61,62,6C,65,61,75,2 
0,61,20,70,6C,75,7E81 
31© DATA 73,20,64,27,75,6E,20,69,6E,64,6 
9,63,65,20,2F,20,837D 
320 DATA 61,72,72,65,74,0A,00,6C,65,20,7 
4,61,62,6C,65,61,88FF 
330 DATA 75,20,6E,27,65,73,74,20,70,61,7 
3,20,65,6E,20,27,8E13 
34Q DATA 6E,6F,6D,27,20,2F,20,61,72,72,6 
5,74,6E,62,20,65,9366 
350 DATA 6C,65,6D,65,6E,74,73,20,61,20,7 
4,72,69,65,72,20,9S945 
360 DATA 69,6E,63,6F,72,72,65,63,74,20,2 
F,20,61,72,72,65,9F27 
370 DATA 74,0A,00,00,00,00,00,00,00,00,0Q 
0,00,00,00,00,00Q,9FAS 


Chargeur COULGRAF 


10 d=8&6FAQ:f-=8&6FD3:n=100:s-Q 

2Q FOR i=1 TO 16 

3Q READ v$:v=VAL("&"+v$):s=s+v:POKE d,v: 

d=d+l1 

4Q NEXT 

5Q READ ch$:c=VAL("&"+c$) 

6Q IF HEX$(c)<>HEX$(s) THEN PRINT'erreur 
ligne ";n:END 

7Q n=n+1@:IF d<f THEN 20 

8Q PRINT'"'ok":END 

10Q DATA @1,AA,6F,21,D0,6F,CD,D1,BC,C9,C 

7,6F,FE,02,28,0B,0806 

119 DATA FE,@1,C@,DD,4E,00,79,CD,DE,BB,C 

9,DD,SE,00,7B,CD,111B 

12Q DATA E4,BB,DD,4E,02,18,EF,43,4F,55,4 

C,47,52,41,C6,00,17C1 

130 DATA @0,00,00,00,00,00,00,00,00,00,0Q 

2,00,00,00,00,00@,17C1 


325 


326 RSX ET ROUTINES ASSEMBLEUR SUR AMSTRAD CPC 
Chargeur FENGRAF 


10 d=8&6GFAQ:f=8&701C:n=100:s-=0@ 

2Q FOR i=1 TO 16 

3Q READ v$:v=VAL("&"+v$):s=s+v:POKE d,v: 

d=d+1 

4Q NEXT 

50 READ c$:c=VAL("&"+c$) 

60 IF HEX$(c)<>HEX$(s) THEN PRINT'erreur 
ligne ";in:END 

7Q n=n+1@:IF d<f THEN 2Q 

8Q PRINT'"'ok":END 

10Q DATA @1,AA,G6F,21,E1,6F,CD,D1,BC,C9,D 

9,6F,DD,46,07,DD,@8FD 

110 DATA 4E,0@6,ED,43,15,70@,DD,46,05S,DD,4 

E,©4,ED,48,17,7@©,@F14 

120 DATA DD,46,0@3,DD,4E,@2,ED,43,19,70@,D 

D,46,@1,DD,4E,00Q,15S6F 

13Q DATA ED,43,1B,7@,FE,04,CQ@,18,27,46,4 

5,4E,47,52,41,C6,1BA4 

14Q DATA @0,00,00,00,00,00,00,00,00,00,0Q 

@,00,00,00,00,0Q,1BA4 

150 DATA @0,00,00,00,00,00,00,00,00,00,0Q 

@,00,00,00,00,00@,1BA4 

16Q DATA ED,5B,15,7@,2A,17,70@,CD,CF,BB,E 

D,5B,19,7@,2A,1B,228F 

17© DATA 7@,CD,D2,BB,C9,00,00,00,00,00,0Q 

@,00,00,00,00,00,2622 


ANNEXE 2 
Chargeur TRIANGLE 


19 d=&6FAQ:f-8&7052:n=100:s-Q 

2Q FOR i=1 TO 16 

30 READ v$:v=VAL("&"+v$):s=s+v:POKE d,v: 

d=d+i 

4Q NEXT 

5Q READ c$:c=VAL("&"+c$) 

69 IF HEX$(c)<>HEX$(s) THEN PRINT'erreur 
ligne ";n:END 

79 n=n+1@:IF d<f THEN 20 

8Q PRINT'"ok":END 

100 DATA O@1,AA,6F,21,F4,6F,CD,D1,BC,C9,E 

B,6F,DD,46,@1,DD,@91C 

110 DATA 4E,@0Q,ED,43,4D,70@,DD,56,03,DD,5 

E,02,ED,53,4B,7@,@FC5S 

12Q© DATA DD,66,05,DD,6E,04,22,49,70@,DD,4 

6,07,DD,4E,0@6,ED,167F 

130 DATA 43,47,70,DD,66,09,DD,6E,08,22,4 

5,70,DD,46,0B,DD, 1CFA 

140 DATA 4E,@A,ED,43,43,70,FE,06,C0,18,1 

5,54,52,49,41,4E,22A4 

150 DATA 47,4C,C5,00,00,00,00,00,00,00,0Q 

@,00,00,00,00,00Q,23FC 

160 DATA CD,CC,BB,ED,53,4F,70@,22,51,7@,1 
1,00,00,21,00,00,2964 

17© DATA CD,C9,BB,ED,5B,43,70@,24A,45,7@,D 

5,ES5S,CD,EA,BB,ED,33A8 

18Q DATA 5B,47,70,2A,49,70,CD,F6,BB,ED,5S 

B,4B,7@,2A,4D,70Q,3BQ5 

190 DATA CD,F6,BB,E1,D1,CD,F6,BB,ED,5B,4 

F,70,24,51,70,CD,4572 

20Q DATA C9,BB,C9,00,00,00,00,00,00,00,0Q 

@,00,00,00,00,00,47BF 

219 DATA @0,00,00,00,00,00,00,00,00,00,0Q 

@,00,00,00,00,00,47BF 


328 RSX ET ROUTINES ASSEMBLEUR SUR AMSTRAD CPC 
Chargeur RECTANG:-1 


19 d=&6FAQ:f-8&7061:n=100:s-0Q 

2Q FOR i=1 TO 16 

39 READ v$:v=VAL("&"+v$):s=s+v:POKE d,v: 

d=d+i 

4Q NEXT 

5Q READ c$:c=VAL("&"+c$) 

6Q IF HEX$(c)<>HEX$(s) THEN PRINT'erreur 
ligne ";n:END 

7Q n=n+1@:I1F d<f THEN 2Q@ 

80 PRINT'"ok":END 

10Q DATA @1,AA,6F,21,E2,6F,CD,D1,BC,C9,D 

8,6F,DD,46,@1,DD,08F7 

119 DATA 4E,0@,ED,43,58,70,DD,56,03,DD,5 

E,02,ED,58,56,70,0FB6 

12Q DATA DD,66,05,DD,6E,04,22,5C,7@,DD,4 

6,07,DD,4E,0@6,ED, 1683 

130 DATA 43,5A,70,FE,04,C@,18,28,52,45,4 

8,54,41,4E,47,4C,1BE2 

14Q DATA C5,00,00,00,00,00,FE,06,C0,18,1 

5,54,52,49,41,4E,2016 

15Q DATA 47,4C,C5,00,00,00,00,00,00,00,0 

@,00,00,00,00,00,216E 

160 DATA CD,CC,BB,ED,538,5E,70,22,60,70,1 
1,00,00,21,00,00,26F4 

17Q DATA CD,C9,BB,ED,5B,5A,70@,24A,5C,7@,C 

D,EA,BB,ED,5B,56,3@5D 

18Q DATA 7@,21,00,00,CD,F9,BB,11,0@,00,2 

4A,58,70,CD,F9,BB,36F3 

19Q DATA 2A,56,7@,7C,2F,67,7D,2F,6F,23,E 

B,21,00,0@,CD,F9,3D05 

200 DATA BB,ED,5B,54,7@,2A,5C,70,CD,F6,B 

B,ED,5B,5E,70,2A,4586 

21Q DATA 60,70,CD,C9,BB,C9,00,00,00,00,0Q 

@,00,00,00,00,00,4970Q 

22Q DATA @0,00,00,00,00,00,00,00,00,00,0 

@,00,00,00,00,00,4970Q 


ANNEXE 2 


Chargeur RECTANG-2 


10 d=8&GFAQ:f-8&710E:n=100:s-Q 

2Q FOR i=1 TO 16 

8Q READ v$:v=VAL("&"+v$):s=s+v:POKE d,v: 

d=d+1 : 

4Q NEXT 

50 READ c$:c=VAL("&"+c$) 

6Q IF HEX$(c)<>HEX$(s) THEN PRINT'erreur 
ligne ";3n:END 

7Q n=n+1@:I1F d<f THEN 2Q 

80 PRINT'"'ok":END 

100 DATA @1,AA,6F,21,ED,6F,CD,D1,BC,C9,E 

3,6F,DD,56,01,DD,@91D 

110 DATA SE,00Q@,ED;,53,E7,70,DD,46,03,DD,4 

E,02,ED,438,FB,7@,110@Q@ 

129 DATA DD,46,@5,DD,4E,@4,ED,43,F1,7@,D 

D,46,07,DD,4E,06, 1843 

130 DATA ED,43,EF,70@,DD,46,09,DD,4E,08,E 

D,48,ED,70@,FE,05,2@C1 

14Q DATA C@,18,1D,52,45,48,54,41,4E,47,4 

C,C5,00,00,00,00,24ACB 

150 DATA @0@,4C,C5,00,00,00,00,00,00,00,0Q 

@,00,00,00,00,0Q,25DC 

169 DATA CD,CC,BB,ED,53,E9,70,22,EB,7Q,E 

D,SB,ED,70@,2A,EF,3004 

17@ DATA 70@,CD,C9,BB,2A,E7,7@,11,05,71,D 

5,CD,64,BD,E1,11,3882 

18Q DATA @A,71,@1,05,00,ED,BQ,3E,FF,32,1 

3,B1,21,F1,70,11,3E66 

190 DATA F6,70@,CD,C7,7@,21,FB,7@,11,00,7 
1,CD,C7,70,21,05,4608 

200 DATA 71,CD,AF,BD,11,F1,7@,EB,CD,85,B 

D,21,FB,7@,11,05,4ECQ 

21© DATA 71,CD,85,BD,21,0A,71,CD,AC,BD,1 
1,F6,7@,EB,CD,85,57C6 

22Q DATA BD,21,00,71,11,0A,71,CD,85,BD,2 
1,F1,7@,CD,D1,7@,SF4Q@ 

230 DATA 21,F6,7@,CD,D1,7@,21,FB,7@,CD,D 
1,70,21,00,71,CD,67CE 

24Q DATA D1,70@,11,00,00,21,00,0@,CD,EA,B 

B,ED,5SB,F1,70,2A,6E86 

250 DATA F6,7@,CD,F9,BB,24,@0,71,CD,DF,7 

@,ED,5SB,FB,70,EB,78C2 


330 RSX ET ROUTINES ASSEMBLEUR SUR AMSTRAD CPC 


269 DATA CD,F9,BB,2A,F1,7@,CD,DF,7@,EB,2 
A,F6,7@,CD,DF,70@,8381 

27Q DATA CD,F9,BB,11,00,00,21,00,00,CD,F 
6,BB,ED,SB,E9,70,8BS3 

28Q DATA 2A,EB,7@,CD,C9,BB,C9,3E,00,CD,6 
7,BD,EB,CD,61,BD,94F7 

290 DATA C9,CD,94,BD,F5,CD,6D,BD,F1,FE,Q@ 
2,D4,DF,70,C9,7C,AQ23 

30Q DATA 2F,67,7D,2F,6F,23,C9,00,00,00,0Q 
0,00,00,00,00,0Q,A2CQ 

31Q DATA @0,00,00,00,00,00,00,00,00,00,0 
@,00,00,00,00,0Q,A2CQ 

320 DATA @0,00,00,00,00,00,00,00,00,00,0 
0,00,00,00,00,0Q,A2CQ 


ANNEXE 2 


Chargeur CERCLE 


10 d=8&6FAQ:f-=8&70B4:n=100:s=Q 

2Q FOR i=1 TO 16 

3 READ v$:v=VAL("&"+v$):s=s+v:POKE d,v: 

d=d+1 

4Q NEXT 

5Q READ c$:c=VAL("&"+c$) 

6Q IF HEX$(Cc)<>HEX$(s) THEN PRINT'erreur 
ligne ";n:END 

7Q n=n+1@:I1F d<f THEN 2Q@ 

80 PRINT'ok'":END : 
19Q DATA @1,AA,6F,21,D5,6F,CD,D1,BC,C9,C 

E,6F,DD,46,@1,DD,@8EQ 

119 DATA 4E,00@,ED,43,94,7@©,DD,56,03,DD,5 

E,02,ED,53,B3,70@,1@3E 

120 DATA DD,66,05,DD,6E,04,22,B1,7@,FE,Q 

8,C0,18,32,43,45, 164B 

13Q DATA 52,43,4C,C5,00,00,00,00,00,08,E 

D,43,ED,70,FE,05,1BE9 

14Q DATA C@,18,1D,52,45,43,54,41,4E,47,4 

C,C5,00,00,00,00,1FF3 

150 DATA @0@,4C,C5,00,00,00,00,00,00,00,Q 

0,00,00,00,00,00,2104 

16Q DATA CD,CC,BB,ED,53,AB,7@,22,AD,7Q,E 

D,SB,B1,70,2A,B3,2A38 

17© DATA 7@,CD,C9,BB,24,94,7@,11,A6,7Q,C 

D,64,BD,3E,FF,32,32B1 

18Q DATA 13,B1,11,©0@,@0,ED,5S3,AF,7@,2A,A 

F,7@,11,9C,7@,CD,3918 

190 DATA 64,BD,11,41,7@©,0©1,0@5,@@,ED,B@,2 
1,9C,70,CD,AF,BD,4@64 

200 DATA 11,46,79,CD,85,BD,CD,94,BD,F5,C 

D,64A,BD,F1,FE,02,4A92 

21© DATA D4,92,70,22,9C,7@,21,A1,7@,CD,A 

C,BD,11,46,70@,CD,5S2F2 

229 DATA 85,BD,CD,6A,BD,22,A1,7@,ED,5B,9 

C,70,D5S,ES,CD,EA,S5SD2@ 

23 DATA BB,E1,D1,CD,92,7@,CD,EA,BB,24A,A 

F,70,23,22,AF,70,667B 

24Q DATA 11,B5,@@,ED,52,2@,A2,ED,5B,AB,7 

@,2A,AD,7@,CD,C9,6E82 

25Q DATA BB,C9,7C,2F,67,7D,2F,6F,23,C9,0@ 

@,00,00,00,00,00,731F 

269 DATA @0,00,00,00,00,00,00,00,00,00,0Q 

@,00,00,00,00,00,731F 

27Q DATA ©0,00,00,00,00,00,00,00,00,00,0Q 

@,00,00,00,00,00,731F 


332 RSX ET ROUTINES ASSEMBLEUR SUR AMSTRAD CPC 


Chargeur ELLIPSE 


19 d=&6F90:f-8&7135:n=100:s=0Q 

2Q FOR i=1 TO 16 

3Q READ vH$:v=VAL("&"+v$):s=s+v:POKE d,v: 

d=d+1i 

4Q NEXT 

5 READ c$:c=VAL("&"+c$) 

60 IF HEX$(c)<>HEX$(s) THEN PRINT'erreur 
ligne ";n:END 

7Q n=n+1©@:I1F d<f THEN 2Q@ 

8Q PRINT'"ok":END 

190 DATA @1,9A,6F,21,EA,6F,CD,DI1,BC,C9,E 

2,6F,FE,05,20,10@,082B 

11© DATA DD,46,01,DD,4E,0@,ED,43,24,71,D 

D,23,DD,23,18,08,Q@E65 

12© DATA FE,04,C@,21,24,71,36,00,DD,56,0Q 

5,DD,SE,@4,DD,46,14B3 

13Q DATA @7,DD,4E,06,ED,53,28,71,ED,483,2 

6,71,DD,56,0@1,DD,1B9C 

14Q DATA SE,0@,DD,46,03,DD,4E,@2,ED,43,F 

E,7@,ED,53,00,71,229C 

150 DATA 18,1E,45,4C,4C,49,50,53,C5,00,0Q 

@,00,00,00,00,00,2560Q 

169 DATA @0,4C,C5,00,00,00,00,00,00,00,0Q 

©,00,00,00,00,00,2671 

17Q DATA CD,CC,BB,ED,583,20@,71,22,22,71,E 

D,5B,26,71,2A,28,2D7C 

180 DATA 71,CD,C9,BB,S8E,FF,32,13,B1,24,2 

Â,71,E5,11,31,71,34CE 

199 DATA AF,CD,64,BD,E1,11,2C,71,AF,CD,6 

4,BD,21,31,71,CD,3D27 

20 DATA AC,BD,21,2C,71,CD,AF,BD,2A,FE,7 

@,11,16,71,CD,64,44E8 

21© DATA BD,24,@0@,71,11,1B,71,CD,64,BD, 1 
1,00,00,ED,53,24,4A4Q 

22Q DATA 71,3E,00,2A,24,71,11,902,71,CD,6 

4,BD,11,07,71,©1,4EAA 

239 DATA @5,0Q@,ED,B@,21,02,71,CD,AF,BD,1 
1,:16;,71:,CD,:854BD;,.55C0 

24Q DATA 11,@C,71,EB,CD,61,BD,18,02,18,0D 

6,21,07,71,CD,AC,SCSE 

25 DATA BD,11,1B,71,CD,85,BD,11,11,71,E 

B,CD,61,BD,21,02,6333 

26Q DATA 71,11,2C,71,CD,85,BD,21,@C,71,1 
1,31,71,CD,85,BD,69C1 


ANNEXE 2 333 


27Q DATA 21,07,71,11,31,71,CD,85,BD,21,1 
1,71,11,2C,71,CD,6F3A 
280 DATA 85,BD,21,02,71,11,07,71,CD,7C,B 
D,CD,E8,70@,E5,21,76CA 
299 DATA @C,71,11,11,71,CD,82,BD,CD,E8,7 
@,D1,CD,EA,BB,2A,7F78 
300 DATA 24,71,283,22,24,71,11,69,Q@1,ED,5 
2,2@,9C,ED,5B,20,84C5 
31Q DATA 71,24,22,71,CD,C9,BB,C9,CD,94,B 
D,F5,CD,6A,BD,F1,8F@5 
320 DATA FE,@2,D4,F6,7@,C9,7C,2F,67,7D,2 
F,6F,23,C9,00,00,9621 
33@ DATA ©0,00,00,00,00,00,00,00,00,00,0 
0,00,00,00,00,00,9621 
34Q DATA @0,00,00,00,00,00,00,00,00,00,0 
@,00,00,00,00,00,9621 
35Q DATA 00,00,00,00,00,00,00,00,00,00,0 
0,00,00,00,00,00,9621 
369 DATA @0,00,00,00,00,00,00,00,00,00,0 
0,00,00,00,00,00,9621 


334 RSX ET ROUTINES ASSEMBLEUR SUR AMSTRAD CPC 


Chargeur POLYGONE 


10 d=8&6F90:f=8R&70FS:n=100:s-0@ 

2Q FOR i=1 TO 16 

3Q READ v$:v=VAL("&"+v$):s=s+v:POKE d,v: 

d=d+1 

4Q NEXT 

5Q READ c$:c=VAL("&"+c$) 

60 IF HEX$(c)<>HEX$(s) THEN PRINT'erreur 
ligne ";n:END 

7Q n=n+1©:IF d<f THEN 29 

8Q PRINT'"ok":END 

109 DATA @1,9A,GF,21,EE,6F,CD,D1,BC,C9,E 

5,6F,FE,05,20,1@,0832 

11Q DATA DD,46,@1,DD,4E,@@,ED,48,DD,7@,D 

D,23,DD,238,18,08,0@F1E 

12Q DATA FE,@4,C@,21,DD,7@,36,00,DD,46,0Q 
1,DD,4E,0@,ED,43,1603 

130 DATA F2,70@,DD,56,03,DD,5E,02,ED,53,E 

4,7@,DD,66,@5,DD,1E91 

14Q DATA 6E,@4,22,E2,7@,DD,46,07,DD,4E,Q 

6,ED,483,F0,7@,ED,264F 

150 DATA 43,F4,70,18,1B,50,4F,4C,59,47,4 

F,4E,C5,00,00,00,2B16 

16Q DATA @@,00,C5,00,00,00,00,00,00,00,0Q 

@,00,00,00,00,0Q,2BDB 

17©Q DATA CD,CC,BB,ED, 53,D9,70,22,DB,70,E 

D,5B,E2,70,2A,E4,35CD 

18Q DATA 7@,CD,C9,BB,3E,00,24,F2,7@,11,D 

4,70,CD,64,BD,8E, 3DD9 

19Q DATA FF,32,18,B1,2A,F@,70,11,E6,70Q,C 

D,64,BD,21,68,01,4537 

200 DATA 11,EB,7@,CD,64,BD,21,EB,7@,11,E 

6,70,CD,88,BD,2A,4DB@ 

21© DATA DD,7@,11,DD,7@,CD,64,BD,18,09,2 
1,DD,7@,11,EB,7@,5544 

22© DATA CD,7C,BD,11,DD,7@,21,CA,70,CD,6 
1,BD,11,CF,70@,0@1,5SD3F 

23Q DATA @5,0@Q,ED,B@,21,CA,7@,CD,AF,BD,C 

D,B1,70,22,CA,70Q,65SBF 

24Q DATA 21,CF,7@,CD,AC,BD,CD,B1,7@,22,C 

F,70,38A,F@,70,21,6ESF 

250 DATA F4,7@,BE,2@,@C,2A,CF,7@,ED,SB,C 

A,70,CD,EA,BB,18,7722 


ANNEXE 2 


269 DATA @A,2A,CF,7@,ED,5B,CA,70,CD,F6,B 
B,34,F4,7@©,3D,32,7FA2 
270 DATA F4,7Q@,FE,FF,2@,A4,ED,5B,D9,70,2 
A,DB,7@,CD,C9,BB,8AI1E 
289 DATA C9,11,D4,7@,CD,85,BD,CD,94,BD,F 
5,CD,6A,BD,F1,FE,9541 
290 DATA @2,D8,7C,2F,67,7D,2F,6F,23,C9,0Q 
0,00,00,00,00,00,99834 
300 DATA @0,00,00,00,00,00,00,00,00,00,0 
0,00,00,00,00,00,9934 
310 DATA @0,00,00,00,00,00,00,00,00,00,0 
0,00,00,00,00,00,9934 
32 DATA @0,00,00,00,00,00,00,00,00,00,0 
0,00,00,00,00,00,9934 


336 RSX ET ROUTINES ASSEMBLEUR SUR AMSTRAD CPC 


Chargeur COPZONE 


19 d=RGFAQ:f=8&7079:n=100:s=0Q 

2Q FOR i=1 TO 16 

3Q READ v$:v=VAL("&"+v$):s=s+v:POKE d,v: 

d=d+1 

4Q NEXT 

5@ READ c$:c=VAL("&"+c$) 

6Q IF HEX$(c)<>HEX$(s) THEN PRINT'erreur 
ligne ";n:END 

7© n=n+1@:1F d<f THEN 2Q 

8Q PRINT"ok":END 

109 DATA @1,AA,6F,21,F5,6F,CD,D1,BC,C9,E 

D,6F,DD,46,0B,DD,0@929 

119 DATA 4E,@A,ED,43,68,70,DD,46,@9,DD,4 

E,08,ED,43,6A,70,@FF2 

.12© DATA DD,46,07,DD,4E,06,ED,43,6C,70,D 

D,46,0@5,DD,4E,04,16BQ 

13© DATA ED,43,6E,7@,DD,46,03,DD,4E,02,E 

D,43,70,7©,DD,46,1E44 

14Q DATA @1,DD,4E,00@,ED,43,72,7@,FE,06,C 

@,18,13,48,4F,50,2453 

150 DATA 5A,4F,4E,C5,00,00,00,00,00,00,0 

@,00,00,00,00,00,260F 

160 DATA 21,00@,@0,CD,05,BC,ED,5B,68,70,2 

A,6A,7@,CD,1D,BC,2C88 

17© DATA 22,74,70,ED,5B,70,70,2A,72,70,C 

D,1D,BC,22,76,70,3370 

18@ DATA ED,4B,68,70,2A,6C,70,09,ED,5B,6 

A,7@,EB,CD,1D,BC,3B42 

190 DATA ED,5B,74,70@,ED,52,22,78,70@,2A,7 

4,70,ED,5B,76,70,42F3 

200 DATA ED,4B,78,7@,ED,B@,2A,6E,70@,2B,2 

2,6E,70,21,6E,7@,49E2 

21Q DATA 3E,00,BE,C8,2A,74,7@,CD,29,BC,2 

2,74,70,2A,76,70,507C 

22Q DATA CD,29,BC,22,76,70,18,D1,00,00,0Q 

@,00,00,00,00,00,541F 

23Q DATA @0,00,00,00,00,00,00,00,00,00,0 

0,00,00,00,00,00,541F 


ANNEXE 2 
Chargeur ZOOM 


10 d=8&9000:f-8&912F:n=100:s-0Q 

29 FOR i=1 TO 16 

30 READ v$:v=VAL("&"+v$):s=s+v:POKE d,v: 

d=d+1i 

4Q NEXT 

50 READ c$:c=VAL("&"+c$) 

60 IF HEX$(C)<>HEX$(s) THEN PRINT'erreur 
ligne ";n:END 

7Q n=n+1@:IF d<f THEN 20 

80 PRINT'ok":END 

100 DATA @1,0A,90,21,2A,90,CD,D1,BC,C9,2 

5,90,DD,46,0@1,DD,@©74F 

119 DATA 4E,@@,ED,43,2D,91,DD,56,03,DD,5 

E,02,ED,53,2B,91,@DFA 

129 DATA FE,@2,C0@,18,2B,5A,4F,4F,CD,00,Q 

@,00,00,00,00,00,11C2 

130 DATA @0,00,00,00,00,00,00,00,00,00,0Q 

0,00,00,00,00,00,11C2 

14Q DATA @0,00,00,00,00,00,00,00,00,00,0Q 

0,00,00,00,00,00@,11C2 

150 DATA CD,11,BC,FE,00,28,10,01,02,@0Q,E 

D,48,1D,95,01,28, 16AQ 

160 DATA @Q@,ED,43,1F,95,18,0E,01,04,00@,E 

D,43,1D,95,01,14,1AA6 

17Q DATA @Q@,ED,48,1F,95,DD,21,33,91,2A,2 

D,91,22,31,91,8E,2056 | 
180 DATA @Q@,F5,3E,00,ED,5B,2B,91,ED,53,2 

F,91,CD,DD,9@,ED,28B4 

190 DATA 5B,31,91,13,183,ED,53,31,91,F1,3 

C,FE,19,28,03,F5,2FSD 

200 DATA 18,E0,21,00,C@,11,00,40,01,00,4 

@,ED,B@,CD,06,BB,34F3 

210 DATA DD,21,33,91,8E, 18,32, 1C,95,8E,0Q 

@,32,1B,95,CD,01,S39DC 

229 DATA 91,34A,1C,95,FE,00,28,06,3D,32,1 

C,95,18,EB,CD,06,3F7A 

23 DATA BB,21,00,4@,11,00@,C@,@1,00,40Q,E 

D,B@,C9,3C,F5,ED,462C 

24Q DATA 5B,2F,91,24,31,91,CD,F@,BB,DD,7 

7,00,DD,28,F1,21,4E11 

250 DATA 1F,95,BE,C8,2A,2F,91,ED,4B,1D,9 

5,09,22,2F,91,18,5422 

269 DATA DC,3C,F5,DD,7E,@0@,CD,90@,BB,DD,2 

3,34,1B,95,32,27,SBES 

27Q DATA B7,3A,1C,95,32,26,B7,3E,8F,CD,5S 

A,BB,F1,21,1F,95,630B 

28Q DATA BE,C8,34A,1B,95,3C,32,1B,95,18,D 

6,00,00,00,00,00,6787 


338 RSX ET ROUTINES ASSEMBLEUR SUR AMSTRAD CPC 


Chargeur SUPER ZOOM 


10 d=&9AQQ:f=-8&IN9BC2:n=100:s=Q 

2Q FOR i=1 TO 16 

3Q READ v$:v=VAL("&"+v$):s=s+v:POKE d,v: 

d=d+1 

4Q NEXT 

5Q READ c$:c=VAL("&"+c$) 

6Q IF HEX$(c)<>HEX$(s) THEN PRINT'erreur 
ligne ";n:END 

7Q n=n+1©:1F d<f THEN 29Q 

8Q PRINT'"ok":END 

100 DATA @1,@A,9A,21,2F,9A,CD,D1,BC,C9,2 

5,9A,DD,46,01,DD,0772 

11© DATA 4E,00,ED,43,B1,9B,DD,56,03,DD,5 

E,02,ED,538,AF,9B,0@F39 

120 DATA FE,02,C0,18,2B,53,55,50,45,52,5 

A,4F,4F,CD,0@,00@,149Q 

130 DATA @0,00,00,31,34,64,65,66,73,09,3 

2,09,38B,SA,4F,4E,1813 

140 DATA 45,20,44,45,20@,43,41,4C,43,55,4 

C,20,0D,52,08,73,1BCF 

150 DATA CD,11,BC,FE,00,28,17,01,02,00Q,E 

D,43,BD,9B,0@1,27,2159 

169 DATA @Q@,ED,43,BF,9B,11,8C,@@,ED,53,C 
1,9B,18,15,01,04,274E 

17© DATA @Q@,ED,43,BD,9B,01,13,00,ED,43,B 

F,9B,11,46,0Q,ED,2DB8 

180 DATA 53,C1,9B,21,00,C0,11,00@,59,01,0Q 

@,4@,ED,B©,CD,14,3371 

199 DATA BC,ED,5SB,C1,9B,ED,53,B7,9B,21,B 
1,00,22,B9,9B, ED,3C98 

20Q DATA 5SB,AF,9B,ED,53,B3,9B,24,B1,9B,2 

2,B5,9B,3E,01,F5,44E7 

21© DATA ED,5B,B3,9B,CD,1D,BC,11,@0@,C@,A 

7,ED,52,11,00,59,4C44 

229 DATA 19,ES,ED,5B,B7,9B,2A,B9,9B,CD,1 

D,BC,D1,EB,@1,0@A,54C7 

230 DATA @Q@,ED,B@,2A,B9,9B,283,22,B9,9B,2 

ÂA,B5,9B,23,22,BS,SBEF 

24Q DATA 9B,F1,3C,FE,17,20,C8,18,00,11,1 

8,00,ED,53,B9,9B,6289 

250 DATA 21,62,01,18,02,18,97,22,B5,9B,E 

5,38E,00,32,B7,9B,67EF 

260 DATA 11,18,0@1,ED,53,B3,9B,CD,78,9B,2 
1,B9,9B,38E,03,BE,6EFB 

27Q DATA 28,06,35,E1,23,23,18,DF,D1,CD,0Q 

@,BB,CD,06,BB,FE,7661 


ANNEXE 2 


28Q DATA 65,CC,6C,9B,FE,73,28,44,FE,F3,2 
8,0E,FE,F1,28,16,7ECA 
29Q DATA FE,F2,28,2A,FE,F0,28,1A,18,E2,2 
A,AF,9B,11,08,00,835C3 
30Q DATA 19,22,AF,9B,18,AF,2A,B1,9B,2B,2 
B,2B,2B,22,B1,9B,8B9F 
310 DATA 18,43,24,B1,9B,23,23,23,23,22,B 
1,9B,18,97,2A,AF,9152 
32 DATA 9B,11,08,0Q@,A7,ED,52,22,AF,9B, 1 
8,89,21,00,59,11,9684 
33Q DATA @0,C0,01,0@@,40Q,ED,B©Q,C9,2A,BS,9 
B,ED,5B,B3,9B,CD,SEC8 
340 DATA F@,BB,CD,90,BB,3A,B7,9B,32,27,B 
7,S3A,B9,9B,32,26,A7@D 
350 DATA B7,3E,8F,CD,5A,BB,3A,B7,9B,21,B 
F,9B,BE,C8,3C,32,AF6E 
360 DATA B7,9B,ED,5B,B3,9B,2A,BD,9B,19,2 
2,B3,9B,18,C9,00,B742 
370 DATA @0,00,00,00,00,00,00,00,00,00,0 
0,00,00,00,00,00,B742 
38Q DATA 00,00,00,00,00,00,00,00,00,00,0Q 
0,00,00,00,00,00,B742 


339 


340 RSX ET ROUTINES ASSEMBLEUR SUR AMSTRAD CPC 


Chargeur AIRE 


19 d=&8000:f-8&81DF:n=100:s-=0@ 

2Q FOR i=1 TO 16 

30 READ vH:v=VAL("&"+v$):s=s+v:POKE d,v: 

d=d+i 

4Q NEXT 

5Q READ c$:c=VAL("&"+c$) 

69 IF HEX$(c)<>HEX$(s) THEN PRINT'erreur 
ligne ";n:END 

7© n=n+1@:1F d<f THEN 29 

8Q PRINT'"ok":END 

1909 DATA @1,0A,80,21,62,80@,CD,D1,BC,C9,5S 

D,80,F5,FE,04,2@,Q@7A5 

11© DATA 14,DD,66,0@1,DD,6E,00,22,C8,81,1 
1,D4,81,CD,B1,81,0F18 

12© DATA DD,23,DD,23,3D,FE,03,20@,14,DD,6 

6,01,DD,6E,00,22,153B 

13 DATA C6,81,11,CF,81,CD,B1,81,DD,23,D 

D,23,3D,FE,02,20Q,1D3F 

14Q DATA 1A,DD,66,01,DD,6E,00@,22,C4,81,1 
1,CA,81,CD,B1,81,24AA 

150 DATA DD,66,03,DD,6E,02,22,DE,81,18,2 

5,F1,C9,41,49,52,2B91 

169 DATA C5,00,00,00,00,00,00,00,00,00,0Q 

@,00,00,00,00,00Q,2C56 

17Q DATA @0,00,00,00,00,00,00,00,00,00,0 

0,00,00,00,00,00Q,2C56 

18Q DATA 3E,01,21,DE,81,BE,2@,24,F1,FE,0Q@ 

3,C0@,21,CA,81,11,3346 

19Q DATA CF,81,CD,85,BD,AF,21,02,@0,11,D 

4,81,CD,64,BD,21,3AEC 

200 DATA CA,81,11,D4,81,CD,88,BD,CD,B7,8 
1,C9,3E,02,21,DE,43BC 

219 DATA 81,BE,20,02,18,D2,3E,03,21,DE,8 
1,BE,20,27,F1,FE,4ABC 

22Q DATA @4,C@,AF,21,02,00,11,D9,81,CD,6 

4,BD,21,CA,81,11,5128 

23Q DATA CF,81,CD,7C,BD,11,D4,81,CD,85,B 

D,11,D9,81,CD,88,SAB3 

24Q DATA BD,CD,B7,81,C9,3E,0@4,21,DE,81,B 

E,20,1D,F1,FE,@2,62EC 

25Q DATA C@,21,CF,81,CD,9A,BD,21,CA,81,1 
1,C4,81,CD,85,BD,6C18 

269 DATA 11,CF,81,CD,85,BD,CD,B7,81,C9,3 

E,05,21,DE,81,BE,74D7 

27Q DATA 2@,2D,F1,FE,02,C@,21,CF,81,CD,9 

A,BD,AF,21,04,@Q@,7C3SE 

280 DATA 11,D4,81,CD,64,BD,21,CA,81,11,C 

A,81,CD,85,BD,11,847A 


ANNEXE 2 


290 DATA CF,81,CD,85,BD,11,D4,81,CD,85,B 
D,CD,B7,81,C9,3E,8ESA 
300 DATA 06,21,DE,81,BE,20,1D,F1,FE,03,C 
@,21,D4,81,CD,S9A,S966A 
319 DATA BD,21,CA,81,11,CF,81,CD,85,BD,1 
1,D4,81,CD,85,BD,9F78 
320 DATA CD,B7,81,C9,8E,07,21,DE,81,BE,2 
@,1D,F1,FE,03,CQ,A7B8 
330 DATA 21,D4,81,CD,9A,BD,21,CA,81,11,C 
F,81,CD,85,BD,11,B©SF 
340 DATA D4,81,CD,85,BD,CD,B7,81,C9,3E,0Q 
8,21,DE,81,BE,C@,B9B5S 
350 DATA F1,FE,03,C@,21,D4,81,CD,9A,BD, 1 
1,D4,81,CD,7C,BD,CS6D 
360 DATA 11,CA,81,EB,CD,85,BD,11,CF,81,C 
D,85,BD,CD,B7,81,CD38 
370 DATA C9,0@1,05,00,ED,B@,C9,21,CA,81,E 
D,5B,C4,81,0@1,@5,D46C 
38Q DATA @@,ED,B@,C9,00,00,00,00,00,00,0Q 
0,00,00,00,00,00@,D6D2 
390 DATA 00,00,00,00,00,00,00,00,00,00,0Q 
0,00,00,00,00,0Q,D6D2 


342 RSX ET ROUTINES ASSEMBLEUR SUR AMSTRAD CPC 


Chargeur VOLUME 


19 d=8&8000:f-8&825A:n=100:s-=0Q 

2Q FOR i=1 TO 16 

39 READ v$:v=VAL("&"+v$):s=s+v:POKE d,v: 

d=d+i 

4Q NEXT 

5Q READ c$:c=VAL("&"+c$) 

69 IF HEX$(c)<>HEX$(s) THEN PRINT'erreur 
ligne ";n:END 

7Q n=n+1@:IF d<f THEN 2Q@ 

8Q PRINT'ok":END 

199 DATA @1,0A,80,21,64,80,CD,D1,BC,C9,5 

D,80,F5,FE,04,20,07A7 

11Q DATA 14,DD,66,01,DD,6E,00,22,34,82,1 
1,40,82,CD,1D,82,@D61 

12Q DATA DD,23,DD,28,3D,FE,03,20,14,DD,6 

6,01,DD,6E,00@,22,1384 

13Q DATA 32,82,11,3B,82,CD,1D,82,DD,23,D 

D,23,3D,FE,02,2@,19CF 

140 DATA 1A,DD,66,@1,DD,6E,00,22,30,82,1 
1,36,82,CD,1D,82,1F81 

159 DATA DD,66,03,DD,6E,02,22,59,82,18,2 

5,F1,C9,56,4F,4C,2SF9 

16© DATA 55,4D,C5,00,00,00,00,00,00,00,0Q 

@,00,00,00,00,00,2760Q 

17Q DATA @0,00,00,00,00,00,00,00,00,00,0Q 

@,00,00,00,00,00,2760Q 

180 DATA 3E,01,21,59,82,BE,20,20,F1,FE,0Q 

2,C0,11,36,82,21,2D34 

19Q DATA 3B,82,CD,61,BD,21,36,82,11,36,8 

2,CD,85,BD,11,3B,33D9 

20Q DATA 82,CD,85,BD,CD,23,82,C9,3E,02,2 
1,59,82,BE,20,3D,SAFC 

21Q© DATA F1,FE,02,C@,AF,21,04,00,11,3B,8 

2,CD,64,BD,AF,21,42@D 

22Q DATA ©3,00,11,4@,82,CD,64,BD,21,45,8 

2,CD,9A,BD,21,36,4834 

23Q DATA 82,11,40,82,CD,A@,BD,11,3B,82,C 

D,85,BD,11,45,82,4F68 

24Q DATA CD,85S,BD,11,40,82,CD,88,BD,CD,2 

3,82,C9,3E,03,21,56F9 

259 DATA 59,82,BE,20@,11,F1,FE,03,C0,21,3 

6,82,11,3B,82,CD,SDE9 


ANNEXE 2 


269 DATA 85,BD,CD,23,82,C9,3E,04,21,59,8 
2,BE,20,32,F1,FE,G6SA3 
270 DATA @3,C@,AF,21,03,00,11,45,82,CD,6 
4,BD,21,4@,82,CD,GBAF 
280 DATA 94,BD,21,56,82,11,36,82,CD,85,B 
D,11,3B,82,CD,85,72D7 
290 DATA BD,11,40,82,CD,85,BD,11,45,82,C 
D,88,BD,CD,23,82,7AD2 
300 DATA 3E,05,21,59,82,BE,20,63,F1,FE,Q 
4,C0,21,45,82,CD,81BA 
310 DATA 9A,BD,AF,21,03,00,11,44,82,CD,6 
4,BD,11,36,82,21,8799 
32Q DATA 4F,82,CD,61,BD,11,3B,82,21,54,8 
2,CD,61,BD,21,4F,8E75 
330 DATA 82,11,4F,82,CD,85,BD,21,54,82,1 
1,54,82,CD,85,BD,9SDS 
340 DATA 21,36,82,11,3B,82,CD,85,BD,11,4 
F,82,CD,7C,BD,11,9C84 
350 DATA 54,82,CD,7C,BD,11,4@,82,CD,85,B 
D,11,45,82,CD,85,A46C 
369 DATA BD,11,4A,82,CD,88,BD,CD,23,82,C 
9,3E,06,21,59,82,AB93 
370 DATA BE,20,17,F1,FE,04,C0@,21,36,82,1 
1,3B,82,CD,85,BD,B2FI1 
389 DATA 11,40,82,CD,85,BD,CD,23,82,C9,3 
E,07,21,59,82,BE, BAQD 
390 DATA 20,21,F1,FE,03,C@,AF,21,03,0@0Q,1 
1,40,82,CD,64,BD,C@S94 
400 DATA 21,36,82,11,3B,82,CD,85,BD,11,4 
0,82,CD,88,BD,CD,C7FC 
410 DATA 23,82,C9,3E,08,21,59,82,BE,CQ@,F 
1,FE,03,C0,21,4@,CF3D 
42Q DATA 82,CD,9A,BD,21,36,82,11,36,82,C 
D,85,BD,11,3B,82,D662 
430 DATA CD,85,BD,11,40,82,CD,85,BD,CD,2 
3,82,C9,01,05,00Q,DD94 
44Q DATA ED,BQ@,C9,21,36,82,ED,5B,30,82,0Q 
1,05,00,ED,BQ@,C9,ES539 
450 DATA 00,00,00,00,00,00,00,00,00,00,0 
0,00,00,00,00,00,E539 
460 DATA ©0,00,00,00,00,00,00,00,00,00,0Q 
0,00,00,00,00,0Q,E539 
47Q DATA ©0,00,00,00,00,00,00,00,00,00,0 
0,00,00,00,00,00Q,E539 


343 


344 RSX ET ROUTINES ASSEMBLEUR SUR AMSTRAD CPC 


Chargeur ELECTRIC 


19 d=&8000:f-8&8225:n=100:s-0 

2Q FOR i=1 TO 16 

3@ READ v$:v=VAL("&"+v$):s=s+v:POKE d,v: 

d=d+i 

4Q NEXT 

5 READ c$:c=VAL("R&"+c$) 

69 IF HEX$(c)<>HEX$(s) THEN PRINT'erreur 
ligne ";n:END 

7@ n=n+1©@:I1F d<f THEN 29 

8Q PRINT'ok":END 

10Q DATA @1,04,80,21,69,80,CD,D1,BC,C9,5 

D,80,F5S,FE,04,20@,@7AC 

11@ DATA 14,DD,66,01,DD,6E,00,22,@E,82,1 
1,14,82,CD,F7,81,0DF3 

12@ DATA DD,23,DD,23,3D,FE,03,20@,14,DD,6 

6,01,DD,6E,00,22,1416 

13Q DATA @C,82,11,15,82,CD,F7,81,DD,23,0D 

D,28,3D,FE,@2,2@,1AEE 

140 DATA 1A,DD,66,@1,DD,6E,00,22,0A,82,1 
1,19,82,CD,F7,81,212D 

150 DATA DD,66,03,DD,6E,02,22,24,82,18,2 

5,F1,C9,45,4C,45,2755 

16Q DATA 43,54,52,49,43,49,54,C5,00,00,0Q 

@,00,00,00,00,0Q,2A2C 

17Q DATA @0,00,00,00,00,00,00,00,00,00,0 

@,00,00,00,00,0Q,2A2C 

18Q DATA SE,01,21,24,82,BE,20,18,F1,FE,0Q 

3,C0,21,15,82,11,2FA3 

19Q DATA 15,82,CD,85,BD,11,1@,82,EB,CD,8 

5,BD,CD,FD,81,C9,38FA 

20Q DATA 3SE,02,21,24,82,BE,20,17,F1,FE,Q 

4,CQ@,21,1@,82,11,3E6D 

21Q DATA 15,82,CD,85,BD,11,14,82,CD,88,B 

D,CD,FD,81,C9,8E,4724 

22Q DATA @3,21,24,82,BE,20,17,F1,FE,@4,C 

@,21,10,82,11,15,4C6F 

23 DATA 82,CD,7C,BD,11,14,82,CD,85,BD,C 

D,FD,81,C9,3E,04,5509 

24Q DATA 21,24,82,BE,20@,31,F1,FE,0@04,C0,2 
1,1F,82,CD,9A,BD,5C78 

250 DATA 21,1@,82,11,15,82,CD,88,BD,11,1 

A,82,CD,85,BD,11,62B2 

269 DATA 1F,82,CD,85,BD,3E,F9,CD,79,BD,2 
1,10,82,11,10,82,69F2 

27Q DATA CD,7C,BD,CD,FD,81,C9,8E,05,21,2 

4,82,BE,20,1F,F1,72@4 


ANNEXE 2 


280 DATA FE,04,C0,3E,01,CD,97,BD,21,10,8 
2,CD,AF,BD,11,15,7938 
290 DATA 82,CD,85,BD,11,14,82,CD,85,BD,C 
D,FD,81,C9,3E,06,81DD 
300 DATA 21,24,82,BE,20,36,F1,FE,04,C0,2 
1,10,82,11,10,82,87C1 
31@ DATA CD,85,BD,21,15,82,11,15,82,CD,8 
5,BD,21,14A,82,11,8EQD 
32Q DATA 14,82,CD,85,BD,21,15,82,11,14,8 
2,CD,85,BD,11,1@,S944D 
33Q DATA 82,EB,CD,7C,BD,CD,9D,BD,CD,FD,8 
1,C9,3E,07,21,24,9D85 
34Q DATA 82,BE,20,43,F1,FE,04,C@,AF,21,0Q 
1,00,11,1F,82,CD,A42B 
350 DATA 64,BD,21,15,82,11,15,82,CD,85,B 
D,21,14,82,11,1A,AS9A3 
369 DATA 82,CD,85,BD,11,15,82,CD,85,BD,1 
1,1F,82,EB,CD,88,B1DD 
370 DATA BD,21,10,82,11,1@,82,CD,85,BD,1 
1,1F,82,CD,7C,BD,B8B7 
380 DATA CD,9D,BD,CD,FD,81,C9,3E,08,21,2 
4,82,BE,C@,F1,FE,C26C 
39Q DATA ©3,C0@,11,10,82,21,14,82,CD,61,B 
D,21,14,82;,11,.15,075D 
40Q DATA 82,CD,7C,BD,21,10@,82,11,15,82,C 
D,85,BD,11,14,82,CDFC 
419 DATA CD,88,BD,CD,FD,81,C9,01,05,00Q,E 
D,B@,C9,21,1@,82,D641 
42@ DATA ED,5B,04,82,0@1,05,0@,ED,BQ,C9,0Q 
@,00,00,00,00,00,DA81 
430 DATA @0,00,00,00,00,00,00,00,00,00,0Q 
0,00,00,00,00,00,DA81 
44Q DATA 00,00,00,00,00,00,00,00,00,00,0Q 
0,00,00,00,00,00,DA81 


345 


346 RSX ET ROUTINES ASSEMBLEUR SUR AMSTRAD CPC 


Chargeur PHYSIQUE 


10 d=8&8000:f-8&823A:n=100:s-=0@ 

2Q FOR i=1 TO 16 

3Q READ v$:v=VAL("&"+v$):s=s+v:POKE d,v: 

d=d+1 

4Q NEXT 

5Q READ c$:c=VAL("&"+c$) 

6Q IF HEX$(c)<>HEX$(s) THEN PRINT'erreur 
ligne ";n:END 

7Q n=n+1@:IF d<f THEN 29 

8Q PRINT'"'ok":END 

10Q DATA @1,0A,80,21,7E,8@,CD,D1,BC,C9,7 

5,80,F5,FE,05,2@,@7DA 

119 DATA 14,DD,66,01,DD,6E,00,22,1E,82,1 
1,2F,82,CD,05,82,@D55 

12© DATA DD,28,DD,283,3D,FE,04,2@,14,DD,6 

6,@1,DD,6E,00,22,1379 

130 DATA 1C,82,11,24A,82,CD,05,82,DD,28,D 

D,23,3D,FE,03,20,1986 

140 DATA 14,DD,66,Q1,DD,6E,00,22,14,82,1 
1,25,82,CD,05,82,1EF3 

150 DATA DD,28,DD,23,38D,FE,02,20@,1A,DD,6 

6,01,DD,6E,00,22,251B 

169 DATA 18,82,11,20,82,CD,05,82,DD,66,0Q 

3,DD,6E,02,22,39,2AAA 

17Q DATA 82,18,1D,F1,C9,50,48,59,53,49,5 
1,55,C5,00,00,00,3013 

18Q DATA @0,00,21,24,82,BE,20,18,F1,FE,0Q 

3,C0,21,15,82,11,354B 

190 DATA AF,21,02,00,11,34,82,CD,64,BD,3 

E,01,21,39,82,BE,S3AAB 

200 DATA 20,32,F1,FE,05,C0,21,24,82,11,2 

@,82,CD,85,BD,21,4161 

21Q© DATA 20,82,11,20@,82,CD,85,BD,11,25,8 

2,CD,85,BD,11,34,47D1 

22Q DATA 82,CD,88,BD,11,24A,82,CD,7C,BD,1 
1,2F,82,CD,7C,BD,4FFO@ 

23Q DATA CD,0@B,82,C9,3E,02,21,39,82,BE,2 

@,20Q,F1,FE,04,CQ@,SG6EQ 

249 DATA 3E,@1,CD,97,BD,21,25,82,11,24,8 

2,CD,85,BD,CD,AC,SE4D 

25Q DATA BD,11,2@,82,EB,CD,85,BD,CD,@B,8 

2,C9,3E,03,21,39,6575 

260 DATA 82,BE,20@,1E,F1,FE,08,C@,21,25,8 

2,11,25,82,CD,85,6C77 

279 DATA BD,11,20@,82,EB,CD,85,BD,11,34,8 

2,CD,88,BD,CD,0B,7492 

280 DATA 82,C9,3E,04,21,39,82,BE,29,30,F 
1,FE,02,C0@,21,25,7B@Q 


ANNEXE 2 


270 DATA 82,CD,9A,BD,AF,21,0A,00,11,24,g 
2,CD,64,ED,21,20,816C 
300 DATA 82,11,2A,82,CD,88,PD,CD,9D,ED ,! 
1,25,82,CD,85,ED,87A8 
710 DATA 11,34, 982,CD,85,BD,CD,@E,82,C9, = 
E,05,21,:9,82,ÈE, 97081 
320 DATA 20,19,F1,FE,03%,C0,%E,01,CD,97,6 
D,71,20,82,CD,AC, 9808 
330 DATA ED, 11,25,82,CD,85,ED,CD,0E,82,c 
9,3E,06,21,29,82,9ECF 
340 DATA BE,20,1E,F1,FE,04,C0,21,25,82;1 
1,20,82,CD, 85, BD, A6QE 
350 DATA 11,24,82,CD,85,ED,11,20,82,EB,C 
D,7C,ED,CD,0E,82,ADD? 
360 DATA C9,5E,07,21,29,82,FE,20,20,F1,F 
E,04,3E,01,CD,97,É6450 
370 DATA ED,C0,21,7A,82,CD,4F,ED,11,25,8 
2,CD,85,ED,11,20,BECE 
z80 DATA 82,ER,CD,85,ED,CD,0B,82,C9,3E,0 
8,71,:9,82,ÉÈE,C0,C40A 
390 DATA F1,FE,04,C0,AF,21,9E,02,11,2F,8 
2,CD,64,BD,21,20,CF1E 
400 DATA 82,11,25,82,CD,85,ED,11,2A,82,0 
D,88,HD,11,24,82,D1FQ 
410 DATA CD,88,BD,11,2F,82,CD,85,ED,3E,F 
z,21,20,87,CD,79,DA@D 
420 DATA ED,CD,0ER,827,C9,01,05,00,ED,B0,C 
9,21,70,82,ED,5E,E164 
4:0 DATA 18,82,01,05,00,ED,R0,C9,00,00,0 
a,00,00,00,0@,00,E46A 
440 DATA 00,00,00,00,00,00,00,00,00,00,0 
G,00,00,00,00,00,E46A 
450 DATA 00,00,00,00,00,08,00,00,00,00,0 
0,00,00,00,00,00,E46A 
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Chargeur MATHS 


19 d=&8000:f-8&823B:n=100:s-0Q 

2à FOR i=1 TO 16 

38Q READ v$:v=VAL("&"+v$):s=s+v:POKE d,v: 

d=d+1 

4Q NEXT 

59 READ c$:c=VAL("&"+c$) 

60 IF HEX$(c)<>HEX$(s) THEN PRINT'erreur 
ligne ";n:END 

7@ n=n+1@:1F da<f THEN 2@ 

89 PRINT'"ok":END 

19Q DATA @1,0A,80,21,62,80@,CD,D1,BC,C9,5 

D,80,F5,FE,04,20,@7A5S 

11© DATA 14,DD,66,01,DD,6E,00,22,1@,82,1 
1,1C,82,CD,F9,81,@DF2 

12Q DATA DD,238,DD,28,8D,FE,03,20,14,DD,6 

6,0@1,DD,6E,00,22,1415 

13Q DATA @E,82,11,17,82,CD,F9,81,DD,23,D 

D,23,3D,FE,02,20,1AF3 

149 DATA 1A,DD,66,@1,DD,6E,00,22,@C,82,1 
1,12,82,CD,F9,81,2138 

150 DATA DD,66,03,DD,6E,02,22,35,82,18,2 

5,F1,C9,4D,41,54,277D 

160 DATA C8,00,00,00,00,00,05,82,DD,66,90Q 

38,DD,6E,02,22,39,2BBA 

17© DATA 82,18,1D,F1,C9,50,48,59,53,49,5 
1,55,C5,00,00,00,3123 

18Q DATA 3E,01,21,35,82,BE,20,SF,F1,FE,0Q 

4,C@,AF,21,04,@0Q,36FE 

19Q DATA 11,30,82,CD,64,BD,11,12,82,21,2 
1,82,CD,61,BD,11,3D14 

209 DATA 17,82,21,26,82,CD,61,BD,11,1C,8 

2,21,2B,82,CD,61,43@C 

21@ DATA BD,21,26,82,11,17,82,CD,85,BD,2 
1,21,82,11,2B,82,48CD 

22Q DATA CD,85,BD,11,30,82,EB,CD,85,BD,C 

D,91,BD,11,26,82,516D 

23Q DATA CD,7C,BD,CD,94,BD,FE,FF,20@,@F,1 
1,30,82,21,12,82,S59385 

24Q DATA CD,61,BD,CD,FF,81,C9,18,52,21,3 

@,82,CD,9D,BD,11,61AB 

250 DATA 17,82,21,26,82,CD,61,BD,21,12,8 

2,11,12,82,CD,7C,679B 

26Q DATA BD,21,17,82,11,30,82,CD,7C,BD,1 
1,12,82,CD,88,BD,6E92 

27Q DATA CD,91,BD,21,17,82,ED,5B,@E,82,0Q 
1,05,00,ED,B©,21,7503 
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280 DATA 26,82,CD,91,BD,11,30,82,CD,7C,B 
D,11,12,82,CD,88,7C89 
290 DATA BD,ED,5B,10,82,01,05,0Q@,ED,B©,C 
9,3E,02,21,35,82,82A4 
30Q DATA BE,20,S8E,F1,FE,02,C@,AF,21,@1,0Q 
@,11,37,82,CD,64,893D 
310 DATA BD,11,12,82,21,17,82,CD,61,BD,2 
1,17,82,11,37,82,8EC8 
32 DATA CD,82,BD,DD,21,17,82,DD,CB,03,B 
E,DD,7E,04,FE,81,97B2 
330 DATA 28,0B,21,12,82,11,17,82,CD,85,B 
D,18,DD,CD,FF,81,9E9S 
34Q DATA C9,3E,03,21,35,82,BE,20,27,F1,F 
E,04,C@,AF,21,02,ASQ1 
35Q DATA @0,11,21,82,CD,64,BD,21,12,82,1 
1,17,82,CD,7C,BD,ABO8 
36Q DATA 11,1C,82,CD,85,BD,11,21,82,CD,8 
8,BD,CD,FF,81,C9,B3A2 
370 DATA 3E,04,21,35,82,BE,CQ@,F1,FE,04,C 
©,AF,21,01,00,11,B9CF 
380 DATA 21,82,CD,64,BD,11,17,82,21,26,8 
2,CD,61,BD,21,17,BFF6 
390 DATA 82,11,1C,82,CD,A@,BD,11,21,82,C 
D,82,BD,21,26,82,C6DA 
400 DATA 11,21,82,CD,82,BD,21,12,82,11,1 
7,82,CD,85,BD,11,CD19 
410 DATA 26,82,CD,88,BD,CD,FF,81,C9,0@1,0 
5,00,ED,B©,C9,21,D576 
42Q DATA 12,82,ED,5B,0@C,82,01,05,0Q@,ED,B 
0,C9,00,00,00,00@,DA4C 
430 DATA @00,00,00,00,00,00,00,00,00,00,0Q 
0,00,00,00,00,00@,DA4C 
44Q DATA ©0,00,00,00,00,00,00,00,00,00,0 
0,00,00,00,00,@Q@,DA4AC 
450 DATA @0,00,00,00,00,00,00,00,00,00,0Q 
0,00,00,00,00,@@,DAA4C 
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VECTEURS SYSTÈME 


VECTEURS MATHÉMATIQUES 


Les vecteurs mathématiques figurent dans un tableau que vous trouverez au 
chapitre 2. 


VECTEURS D’AFFICHAGE 


Pour plus de précisions, voir chapitre 2, routine d'affichage de nombres entiers 16 bits 
en binaire. 


— #C337 : routine d'affichage pour le CPC 464. 
— #C380 : routine d'affichage pour le CPC 664. 
— #C37D : routine d'affichage pour le CPC 6128. 


VECTEURS CLAVIER 


— #BBO0 : initialisation du clavier. 


ENTREE : néant. 
SORTIE : néant. 


— #BB06 : Attente de la frappe d'une touche. 


ENTREE : néant. 
SORTIE : À code ASCII du caractère frappé. 
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VECTEURS GRAPHIQUES 


Les adresses sont identiques quel que soit le CPC utilisé. 
— #BB5A : Affichage d'un caractère. 


ENTREE : À code ASCII du caractère à afficher. 
SORTIE : néant. 


— #BB90 : Fixe le numéro d'encre du stylo. 


ENTREE : A de l'encre du stylo. 
SORTIE : néant. 


— #BBC9 : Fixe la position de l'origine. 


ENTREE : De coordonnée absolue X. 
HL coordonnée absolue Y. 
SORTIE : néant. 


— #BBCC : Indique la position de l'origine. 


ENTREE : néant. 
SORTIE : DE coordonnée absolue X. 
HL coordonnée absolue Y. 


— #BBCF : Placement des bords verticaux de la fenêtre graphique. 


ENTREE : DE coordonnée premier bord. 
HL coordonnée deuxième bord. 
SORTIE : néant. 


— #BBD2 : Placement des bords horizontaux de la fenêtre graphique. 


ENTREE : DE coordonnée premier bord. 
HL coordonnée deuxième bord. 
SORTIE : néant. 


— #BBDE : Fixe l'encre du stylo graphique. 


ENTREE : À numéro de l'encre du stylo. 
SORTIE : néant. 


— #BBE4 : Fixe l'encre du papier graphique. 


ENTREE : À numéro de l'encre du papier. 
SORTIE : néant. 


— #BBEA : Place un pixel à une position absolue. 


ENTREE : DE coordonnée X du pixel. 
HL coordonnée Y du pixel. 
SORTIE : néant. 


— #BBFO0 : Indique le numéro d'encre d'un pixel. 


ENTREE : DE coordonnée X du pixel. 
HL coordonnée Y du pixel. 
SORTIE : À numéro de l'encre du pixel. 
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— #BBF6 : Tracé d'une droite vers un point absolu. 


ENTREE : DE coordonnée X du dernier point. 
HL coordonnée Y du dernier point. 
SORTIE : néant. 


— #BBF9 : Tracé d'une droite vers un point relatif. 


ENTREE : DE coordonnée X du dernier point. 
HL coordonnée Y du dernier point. 
SORTIE : néant. 
— #BC11 : Indique le mode en cours. 


ENTREE : néant. 
SORTIE : À 0, 1 ou 2 suivant le cas. 


— #BC14 : CLS de l'écran. 


ENTREE : néant. 
SORTIE : néant. 


— #BC1D : Donne l'adresse mémoire d'un pixel. 


ENTREE : DE coordonnée X du pixel. 
HL coordonnée Y du pixel. 
SORTIE : HL adresse mémoire. 


— #BC29 : Donne l'adresse mémoire d'un octet situé dans la ligne précédente 
au-dessus de l'octet dont l'adresse est fournie. 


ENTREE : HL adresse d'un octet. 
SORTIE : HL adresse de l'octet au-dessus dans la ligne supérieure. 
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LEXIQUE 


Accumulateur : 


Registre principal du processeur Z80, par lequel s'effectuent transferts et calculs. 


Arobase : @ 


Caractère spécial qui, mis devant une variable, indique que l'on va traiter l'adresse de 
celle-ci. 


Ascii : 


Américain Standard Code for Information Interchange ; ce code permet de représenter 
les caractères sur 7 bits, ce qui permet de proposer une panoplie de 128 caractères en 
tout genre pour les micro-ordinateurs. 

Assembleur : 


Logiciel de traduction d'un programme écrit en Assembleur ; nom également donné au 
programme écrit dans ce langage. 


Base : 


Système de numération servant à exprimer les nombres; en informatique sont 
utilisées les bases 2 (binaire), 10 (décimal), et 16 (hexadécimal). 


Binaire : 


Système de numération en base 2, qui utilise les symboles 0 et 1. 
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Bit : 


Information élémentaire en informatique prenant les valeurs 0 ou 1 dans le système en 
base 2. 


Buffer : 


Zone de stockage d'informations utilisée dans un programme BASIC ou ASSEM- 
BLEUR. 


Cache : 


Valeur permettant d'afficher les points d'un pixel, dans la couleur du STYLO, ou de 
celle du PAPIER. 


Carry : 

C'est l'un des bits du REGISTRE D'ETAT “F”; sa fonction essentielle est d'indiquer un 
dépassement éventuel, suite à une OPERATION ARITHMETIQUE ou LOGIQUE. 
Chaîne : 


C'est une suite de caractères ASCII, repérée en BASIC par le signe $. 


Chargeur : 


Il s'agit d'un programme permettant de mémoriser une suite de codes à un 
emplacement défini. 


Code objet : 


Programme en binaire directement exécutable par la machine. 


Code source : 


Programme compréhensible par l'homme et le logiciel ASSEMBLEUR. Ce programme 
n'est pas directement exécutable par la machine. 


Décalage : 


C'est la translation d'un bit vers la droite ou vers la gauche, dans un registre donné. 
Dans ce cas, le premier ou le dernier bit va dans le REPORT. 


Décrémentation : 


Soustraction de 1 d'un registre, d'un octet donné, ou d'une variable BASIC. 
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Dépassement : 


C'est la conséquence d’une opération dont la valeur du résultat dépasse la valeur 
maximale autorisée ; soit 255 pour un traitement sur 8 bits, et 65536 pour un traitement 
sur 16 bits. 


Déplacement relatif : 


Se dit d'un saut, à l'intérieur d'un programme assembleur, s'effectuant à partir de 
l'instruction elle-même; celui-ci peut aller de —-127 à +128 octets. 


Désassembleur : 

Logiciel effectuant la traduction d'un programme binaire en langage ASSEMBLEUR. 
Digit : 

Equivalent du bit dans le système en base 2. 


Données : 


Informations en entrée ou en sortie d'un programme en ASSEMBLEUR. 


Dump : 


Logiciel de visualisation d'une portion de mémoire en codes hexa et en codes ASCII. 


Entier : 


Valeur numérique sur 8 ou 16 bits en ASSEMBLEUR. 


Etiquette : 


C'est ce qui permet de repérer une instruction assembleur, en vue d'un branchement 
par une instruction de saut. 


Exposant : 


Octet d’un nombre flottant permettant de faire la séparation entre partie entière et 
partie décimale. 


Fenêtre : 


Cadre rectangulaire défini dans la zone d'affichage de l'écran. 


Flag : 


Equivalent d'INDICATEUR dans le REGISTRE D'ETAT, reflétant le résultat d'une 
opération quelconque. 
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Flottant : 


C'est la représentation en mémoire d'un nombre réel, configuré sur 5 octets, dont 4 
pour la mantisse, et 1 pour l'exposant. 


Fonction booléenne : 


Opération logique s'effectuant entre 2 octets ou 1 octet et une valeur donnée. 


Hexadécimal : 


Système de numération en base 16, utilisant les symboles 0 à 9 et À à F. 


Incrémentation : 


Addition de 1 d'un registre, d'un octet donné, ou d'une variable BASIC. 


Indicateur : 


Equivalent de FLAG dans le REGISTRE D'ETAT. 


Indice : 


Repère du niveau hiérarchique d’un tableau BASIC défini en DIM. 


Interpréteur BASIC : 


Logiciel procédant à la traduction du BASIC en langage exécutable par la machine. 


Interruption : 


Elément interne ou externe à un programme, provoquant l'arrêt momentané de 
celui-ci, en vue d'effectuer un autre traitement. 


Label : 
Equivalent d'ETIQUETTE dans un programme ASSEMBLEUR. 


Mantisse : 


Partie d'un flottant représentant les chiffres significatifs. 


Octet : 


Groupe de 8 bits permettant de représenter des nombres entre 0 et 255. 


Opérations arithmétiques : 


Ce sont les opérations classiques : +, —, x, / 
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Opérations logiques : 


Ce sont les fonctions de type AND, OR, XOR. 


Overflow : 

Equivalent de DEPASSEMENT, suite à un traitement arithmétique ou logique. 
Papier : 

Feuille virtuelle sur laquelle s'inscrivent graphisme et texte, dont le nombre de couleurs 
possibles dépend du mode. 

Pixel : 


Unité de base de l'écran, dont le nombre de points qui la forment dépend du mode 
écran en cours. 


Poids : 

C'est la valeur correspondante à 2 puissance « numéro du bit considéré », en sachant 
que dans un octet le numérotage des bits va de O0 à 7, le premier bit étant le bit O. 
Pointeur : 


Valeur permettant de pointer sur une zone quelconque de la mémoire, en vue d'y 
accéder facilement. 


Pointeur de pile : 


Se nomme aussi STACK POINTEUR ; permet au système de gérer une zone dans 
laquelle sont stockées des données sur 2 octets; ceci est utilisé dans le cas de la 
sauvegarde des registres. 


Quartet : 


C'est la partie droite ou gauche d'un octet, soit sur 4 bits. 


Ram : 


De l'anglais Random-Access Memory, c'est-à-dire mémoire utilisateur. 


Registre : 


Un registre est constitué d’un octet pour les registres simples, et de 2 octets pour les 
registres doubles ; nous pouvons dénombrer les registres suivants : 


— registres simples : À, B, C, D,E,H,L,IR 

— registres doubles : AF, BC, DE, HL 

— registre d'état: F 

— registres d'index : IX,IY 

— registres auxiliaires : A’, F', B', C', D’, E”, H', L’; ceux-ci sont utilisés en double 
registre et permettent la sauvegarde des registres doubles courants. 
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Report : 
Equivalent de CARRY, dans le REGISTRE D'ETAT. 


Rom : 


De l'anglais Read-Only Memory, c'est-à-dire une mémoire qui ne peut être que lue. 


Rotation : 


Translation des bits d'un octet à gauche ou à droite, avec récupération du bit O dans le 
bit 7, ou du bit 7 dans le bit O. 


RSX : 


De l'anglais Résident System eXtension, c'est-à-dire extension d'instructions BASIC 
implantée en RAM. 


Scrolling : 


Déplacement d'une zone de l'écran, ou de sa totalité, dans une direction donnée. 


Système d'exploitation : 


Logiciel gérant le déroulement des différentes tâches d'un ordinateur. 


Vecteur : 


Adresse (en RAM) de branchement à une routine située en ROM. 


Zoom : 


Agrandissement d'une zone de l'écran. 
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LA DISQUETTE PROGRAMME 


Vous pouvez commander la disquette d'accompagnement de cet ouvrage. Le 
Sommaire en est le suivant : 


Face 1: — Programme expliquant l’utilisation et décrivant le contenu de la 
disquette. 


— Tous les programmes listés dans l'ouvrage sous la forme de fichiers 
binaires. Ceux-ci sont récupérables soit directement en faisant suivre 
l'ordre LOAD de l'adresse de chargement, soit à l’aide d'un logiciel 
d'assemblage-désassemblage permettant de modifier la routine. 


— Programme de démonstration des routines se présentant sous la forme 
de menus permettant de sélectionner le programme désiré. 


— Page écran appelée « ECRAN.SCR » formée d'un dessin utilisé pour les 
démonstrations des routines graphiques. 


Face 2: — Les CHARGEURS de routines permettant leur installation en 
mémoire par l'intermédiaire d'une série de DATA. Cette méthode 
permet de modifier les routines sans l'intervention d'un assembleur- 
désassembleur. 


NOTE IMPORTANTE 


Les programmes fournis avec la disquette d'accompagnement sont 
ceux qui sont présentés dans l'ouvrage ; soit des programmes qui 
fonctionnent, dans la majorité, sur le CPC 6128. 

Pour l'adaptation sur CPC 464, se reporter aux notes indiquées 
dans l'ouvrage, pour chacune des routines traitées. 

En ce qui concerne l'adaptation pour le CPC 664, se reporter à 
l'annexe Ill, pour les équivalences de vecteurs. 
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CECEEEECEEEEEEEEESEEPEEEEEEEEEEEEEEEEEEREREEEREREREEEEEEEEEEEREREEREEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE CREER EEEEEREEEEEEREEREER,e à 
Vente par correspondance 


BON DE COMMANDE 


Je commande la disquette d'accompagnement du livre : « Assembleur et 
routines RSX» au prix de 150,00 FF*. 

Renvoyez-nous ce bon rempli (découpé ou copié), avec votre règlement, plus 
de 10,00 FF** de frais de port et d'emballage, par chèque bancaire ou postal 
établi à l'ordre de LA CONSOLE. 

Adresse : La Console, 5, place du Colonel-Fabien, 75010 Paris 


NOM: xs ren RE ds Prénom: sarah 
ACIBSSO AT a EN ne ne ARS ne PA NE MR d a e 
Tien ehlaedine hits Ve suis ci emission 
Code postal .................... Pays. sise meme ir. 


Prix valable jusqu'au 31 décembre 1986. 
** Hors CEE, prévoyez 15,00 FF pour supplément de frais d'expédition. 


CONSEILS DE LECTURE 


Pour approfondir vos connaissances en BASIC, mieux connaître le système des CPC 
464, 664 et 6128, et maîtriser le graphisme sur Amstrad, P.S.I. vous propose une 
palette d'ouvrages utiles. 


POUR MAÎTRISER LE BASIC AMSTRAD 


— Basic Amstrad 1 — Méthodes pratiques — Jacques Boisgontier et Bruno 
Césard (Editions du P.S.I.) 


Pour ceux qui ont déjà pratiqué un Basic, voici un ouvrage de perfectionnement au 
Basic Amstrad. Un chapitre sur le CP/M 2.2. et le CP/M Plus donne les principales 
commandes systèmes. 


— Basic Amstrad 2 — Programmes et fichiers — Jacques ERISOnEer 
(Editions du P.S.I.) 


Pour pratiquer le Basic Amstrad, cet ouvrage donne de nombreux programmes de 
gestion, d'éducation et de jeu où le rôle des fichiers est expliqué et largement 
commenté. 

— Basic plus — 80 routines sur Amstrad — Michel Martin (Editions du P.S.I.) 


Pour pousser votre Amstrad au maximum de ses capacités : 80 routines de simulation 
d'instructions qui n'existent pas en Basic Amstrad. 


POUR MIEUX CONNAÎTRE LE SYSTÈME DES CPC 
— Clefs pour Amstrad 1 — système de base — Daniel Martin (Editions du 
P.S.I.) 


Mémento présentant synthétiquement le jeu d'instructions du Z80, les points d'entrée 
des routines système, les connecteurs et brochages, etc. 


Le livre de chevet du programmeur sur Amstrad. 


366 RSX ET ROUTINES ASSEMBLEUR SUR AMSTRAD CPC 


— Clefs pour Amstrad 2 — système disque — Daniel Martin et Philippe Jadoul 
(Editions du P.S.I.) 


Ce deuxième tome consacré au système disque présente les points d'entrée des 
routines disque, les blocs de contrôle, la programmation et les brochages des circuits 
spécialisés. 


La deuxième partie du livre est aussi destinée aux possesseurs d'Amstrad 8256. 


— CP/M plus sur Amstrad — Yvon Dargery (Editions du P.S.I.) 


Toutes les commandes CP/M et CP/M plus pour maîtriser le système des 6128 et 
8256 : un ouvrage de référence illustré par de nombreux programmes. 


— Le livre de l’Amstrad — Tome 1 — Daniel Martin et Philippe Jadoul (BCM — 
diffusé par P.S.I.) 


Ce livre, destiné aux programmeurs des CPC 464, 664 et 6128, donne une étude 
complète de tous les circuits internes, et analyse la structure interne du BASIC. Vous y 
trouverez, en outre, une étude complète des RSX, et des programmes de scrolling, de 
traçage de rectangles, de coloriage de surface et de manipulation vectorielle. 


POUR CONCEVOIR ET AMÉLIORER VOS GRAPHISMES 


— Mathématiques et graphismes — Gérald Grandpierre et Richard Cotté 
(Editions du P.S.I.) 


De très beaux graphismes sont générés par des équations mathématiques. L'univers 
des fractals, les déformations et les enveloppes, les surfaces en Z2 sont étudiées dans 
ce livre très pédagogique et de haut niveau. Tous les programmes, écrits en Basic 
standard, sont facilement adaptables au Basic Amstrad. 


— Création et animations graphiques sur Amstrad CPC — Gilles Fouchard et 
Jean-Yves Corre (Editions du P.S.l.) 


Dessiner avec la souris ou le joystick et apprendre à faire des scrolling, à fabriquer une 
gomme, à inverser une image ou à l'éclater en une myriade de points, tel est l'objectif 
de ce livre écrit en assembleur Amstrad. 


— Graphisme en assembleur sur Amstrad CPC — Francis Piérot (Editions du 
P.S.I.) 


Cet ouvrage met en pratique les notions d'assembleur acquises par le lecteur, grâce à 
de nombreux programmes commentés. Du simple tracé d’un cercle, à l'animation 
d'une soucoupe volante dans un décor, en passant par la mise en mouvement d'une 
corne d'abondance, vous apprendrez à maîtriser l'assembleur et à créer de très belles 
pages-écran. 
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Votre avis nous intéresse 


Pour nous permettre de faire de meilleurs livres, adressez-nous vos critiques sur le 


présent ouvrage. 


— Ce livre vous donne-t-il toute satisfaction ? 





Si vous souhaitez des éclaircissements techniques, écrivez-nous, nous ne manquerons 


pas de vous répondre directement. 


Où avez-vous acheté ce livre ? 


D cadeau O librairie 

D exposition D boutique micro 
Comment en avez-vous eu connalssance ? 
DO publicité D catalogue 

D exposition D conseils d'un ami 


Avez-vous déjà acquis des livres P.S.I. ? 
LeSsquels 75h inmmernemenn unes | 


NOM: ne RE Prénom . 





PTOFBSSION a 
Centre d'intérêt 


O autres 


D autres 





CATALOGUE GRATUIT 


Vous pouvez obtenir un catalogue complet des ouvrages PSI, sur simple demande, ou en retournant 
cette page remplie à votre libraire, à votre boutique micro ou aux 


Editions du PSI 
BP 86 
77402 Lagny-sur-Marne Cedex 
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RSX ET ROUTINES 
ASSEMBLEUR 
SUR AMSTRAD CPC 





C: ouvrage s'adresse à vous, possesseurs d'Amstrad CPC 464,664 
et 6128, qui souhaitez mettre en pratique vos connaissances en assem- 


bleur Z80. 


LS avoir découvert le jeu d'instructions du Z80, vous entrerez 
dans le vif du sujet grâce à de courts programmes utiles qui vous seront 
commentés, expliqués et fournis avec leur organigramme. 


Vs maîtriserez rapidement le traitement des listes de caractères, 
l'affichage et la conversion des nombres. Vous découvrirez également 
les possibilités graphiques de votre machine, et vous effectuerez des 
calculs en créant des fichiers de formules. 


E, majorité, les programmes proposés peuvent compléter utile- 
ment vos programmes Basic, sous forme de nouvelles instructions de type 
RSX et vous ouvriront ainsi de larges possibilités de créations 
personnelles. 
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